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Introduction 



This Teacher • s Guide is a multi-faceted resource that we 
believe contains all the additional materials you should need to 
offer your students an excellent introductory programming course . 

Each of the chapters in the text has been broken down into a 
series of lessons intended to be covered in approximately three 
class periods . Of coutse, the pace at which the material is 
covered should be determined by the age and ability of your 
students . Therefore, the three days per lesson is meant only as 
a guideline . Maintaining a schedule which is too fast will leave 
students confused and accomplish little . Since programming is 
learned sequentially, it is important that students understand 
each step in the process before going on to the next . 

Each of the lessons contains the following features : 

OBJECTIVES: An outline of the significant topics which should 
be emphasized . 

ASSIGNMENTS: A reading assignment is g iven for the pages in the 
text which are covered by the lesson . The text 
problems are the odd-numbered problems whose 
solutions can be found in the back of the text; 
these problems are most appropriate for classroom 
use . The even-numbered problems are used for 
homework assignments , with the answers to these 
given in the answer key available only to teachers . 

DISCUSSION TOPICS: This is additional material which may be used 

to supplement the text . Its use should be 
determined by the ability of your class . 
Often advanced material is presented for those 
teachers who want to delve into a topic in 
greater depth than is presented in the text . 

Transparency masters are used in lessons where 
a program or diagram is the main focus of classroom 
discussion. The transparency masters may also be 
photocopied and used as hand-outs . 

WORKSHEETS: Programming problems which usually do not require 
the use of the computer are provided . They are 
especially helpful in classrooms where the number 
of students exceeds the number of computers . 



TRANSPARENCY: 
MASTERS 



The following features are found at the end of each chapter 
in the Guide: 

SUPPLEMENTARY Supplementary problems are provided for whatever 
PROBLEMS: use you may have for them. They can be used for 

ho me wo rk assignments , classroom discussions or 
additions to the chapter tests . Answers are given 
to these problems . 

TESTS: Tests are provided to determine how well each student 
has mastered the material in the chapter . Since these 
tests are designed to emphasize programming sk ills , most 
do not contain multiple-choice questions . Again, they 
should be used selectively, depending on the level of 
the student; questions can be added or deleted where 
appropriate. The g rading scale provided with the test 
answers should also be used with discretion. A mid-term 
examination is given at the end of Chapter 5 and a final 
ex aminat ion is at the end of Chapter 9. 

Why teach programming? 

There are two important reasons for teaching programming 
which should be kept in mind when preparing an introductory 
programming course. The first and most important reason is to 
develop a student ' s problem solving sk ills . This is done by 
requiring students to analyze a problem carefully , break it down 
into separate parts and, only after working out its details, 
write the appropriate computer program. Students should not be 
allowed to sit down at a computer and simply start typing as the 
first step. This develops sloppy habits and defeats the primary 
purpose of learning to prog ram. Often it is a good idea to make 
students present an outline of how they will solve a problem 
before letting them at the computer. The value to other academic 
disciplines of learning good problem solving skills can be 
considerable since what they are really learning is how to think 
logically. Although the text waits until Chapter Five for a 
detailed discussion of problem solving, it should be emphasized 
right from the beg inning . 

A second reason for teaching students to program is to 
acquaint theni with the capabilities and limitations of computers. 
Since they are a part of a society which is becoming increasingly 
computerized , learning to program is probably the best way to 
make them feel comfortable with computers. Learning only 
introductory prog ramming is usually enough to convince most 
students that it is not the computer that is important , but 
rather the programmer - the human element. 



Permission is given by Lawrenceville Press , Inc . to teachers 
using this guide and the publication A Guide to Programming the 
Commodore Computers to duplicate pages of this teacher's guide 
only for use in their classrooms. 
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Lesson 1 .1 



OBJECTIVES: a) to understand what a ' program' is, how it is 
written and how it is accessed 

b) to become familiar with the computer , write a 
simple program, run the program and store it on a 
diskette 

c) to apply the operating commands NEW, LIST, RUN, 
SAVE and LOAD 

d) to apply the BASIC command PRINT 



ASSIGNMENT: Read pages 1.1 through 1.3 

Text problem 1 Homework problem 2 



There is no substitute for "hands-on" experience. Some students 
will be intimidated by the computer until you show them how it feels 
actually to work with one. Allow each student to perform the steps 
required to turn on and make the computer operational , 

1) Insert a properly formatted diskette in the drive. The 
diskette is inserted with the label up and toward the user . 
Appendix C in the text describes how to initialize a new 
diskette. It also describes the commands SAVE, VERIFY, LOAD 
and WEDGE. Mention the importance of proper diskette care. At 
no time should a student touch the exposed surface of the 
diskette or place the diskette near any magnetic field. Note 
that a diskette placed on top of the monitor may be damaged 
for this reason. Also warn students to write on the diskette 
label only with a soft tip marker . 

2 ) Turn on the power to both computer and monitor . 

3 ) Observe that the red light on the disk drive comes on and 
then goes out . A prompt then appears on the monitor . 

Use Transparency 1 to familiarize students with the statements 
covered in the reading assignment . Cover the t ranspa r ency with an 
opaque sheet on the overhead projector to reveal the first line: 



lei 



FROG 



Have the students type FROG and press the .RETURN key. Erophasize that 
the computer will only respond to instructions after the RETURN key is 
pressed. Slide the opaque screen down to reveal 

? SYNTAX ERROR 

and discuss the computer's response . 

Continue in this rnanner to step the students through the 
transparency. Figure 1 will assist you in your discussions. 
Invar iably , you will need to show students how to correct a typing 
mistake by using the DEL key. 

At the conclusion of the discussion above, provide the students 
with Worksheet 1 and let them proceed on their own. 

NOTE: Remeniber that before attempting to list a directory of files 
on a diskette y you must always save whatever program you are currently 
working on first. This is because the Coramodore Disk Directory is 
stored in a separate file which must be LOADed (LOAD "$",8) and LISTed 
to examine its contents . 
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Transparency 1 

FROG <RET> 



? SYNTAX ERROR 



NEW 



10 PRINT "HELLO" 
20 PRINT "GOODBYE" 



RUN 

HELLO 

GOODBYE 



LIST 

10 PRINT "HELLO" 
20 PRINT "GOODBYE" 



SAVE "TRY IT" ,8 



NEW 
LIST 



10 PRINT "I LIKE COMPUTING" 
20 PRINT "IT IS EASY" 



RUN 

I LIKE COMPUTING 

IT IS EASY 



LOAD "TRY IT" ,8 



RUN 

HELLO 

GOODBYE 

1.3 



Explanation of Transparency 1 



PROG <RET> 



RETURN key signals the computer that 
our response is complete . 



? SYNTAX ERROR 



The computer does not recognize 
FROG as a command. 



NEW 



Clears the computer ' s memory. 



10 PRINT "HELLO" 
20 PRINT "GOODBYE" 



A two line program is typed into the 
computer ' s memory. 



RUN 

HELLO 

GOODBYE 



The program in memory is translated 
into instructions the computer can 
understand . The instructions are 
carried out in the order of the 1 ine 
numbers . 



LIST 

10 PRINT "HELLO" 
20 PRINT "GOODBYE" 



Current contents of memory are 
listed. 



SAVE "TRY IT" ,8 



A copy of your program is stored on 
diskette as a file named TRYIT. 



NEW 



Wipes memory clean . 



LIST 



Current contents of memory contain 

nothing to list. 



10 PRINT "I LIKE COMPUTING" 

2 PRINT "IT IS EASY " 



A new two line prograiti is typed into 
the CO mp u t e r me rao r y . 



RUN 

I LIKE COMPUTING 

IT IS EASY The nev/ program is run. 



LOAD "TRYIT", 8 Finds program named TRYIT on 

diskette and loads it into memory. 
The prior contents of luemory are 
e cased and lost. 



RON 

HELLO 

GOODBYE 



FrograiTi froru disk, now xn i)?emory, 
is ran. 



Worksheet 1 .1 



Part I Type NEW, then enter the given program. RUN the program and 
see what happens. Then LIST the program to see if it appears 
the same as when it was typed in. Do not forget to type NEW 
before each program. 



a) 


10 


PRINT 


"MOON" 


K \ 

D) 


1 u 


irKiJM i 


BLUE 


c) 


10 


PRINT 


"FIRST" 




J u 


PRINT 


"SECOND" 




zU 


PRINT 


"THIRD" 


d) 


10 


PRINT 


"TEN" 




20 


PRINT 


"TWENTY" 




10 


PRINT 


"THIRTY" 


e) 


10 


PRINT 


"TEN" 




10 


10 PRINT "TEN" 


f ) 


10 


PRINT 


"A" 




20 


PRINT 


"B" 




10 






g) 


10 


"PRINT WHAT IS 


h) 


10 


PRINT 


"SOMETHi: 


i) 


10 


PRINT 


SPIFFY" 


j) 


10 


PRINT 


"1+2" 




20 


PRINT 


1+2 
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Part I 



Worksheet 1 .1 Solutions 

Emphasize before students begin that each exercise is to be 
typed exactly as shown , even if it contains an error . 



a) MOON is printed. 

b) BLUE is printed . 

c) The computer executes the commands in line number sequence. 

d) Reusing a 1 ine number erases the line previously given that 
line number . 

e) A space inserted in the line number is irrelevant. The 
compute r ar ranges characters according to an unchangeable 
convention . So, the second line number is 1010 . This can be 
shown by listing the program with the command LIST. 

f ) Reusing a 1 ine number but no command erases the original 
1 ine . 

g) Since PRINT is enclosed by the quotation marks the 1 ine has 
no proper command . 

h) The exclamation point cannot be understood by the computer . 
Since it lies outs ide the quotation marks , the computer 
attempts to interpret it as a command . No such command exists 
on the computer . 

i) A quotation mark is missing, ( The computer recognizes the 
imbedded ' IF ' as having some special meaning . The value in 
the variable ' SP ' is printed. But don't bring up these ideas 
now. ) Some students may be surprised that inclusion or 
omission of a single character can cause an error . You might 
tell your students that in 1962 a single hyphen was missing 
from a computer program controll ing the f 1 ight of the Mariner 
1 spacecraft. As a result the multi-million dollar craft did 
not follow the correct trajectory and had to be destroyed . 

j ) Mathematical calculations not enclosed within quotation marks 
are carried out when the program is RUN , and it is the result 
of the calculation that is pr inted . 
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Lesson 1 .2 



OBJECTIVES: 



a) 



to recognize how a computer stores inf ormat ion 



b) to distinguish between a variable and the value 
assigned to that variable 

c) to perform simple mathematical calculations on the 
computer 



ASSIGNMENT: 



Read pages 1 . 3 through 1 . 6 
Text problem 3 



Review problems 1 and 2 
No Homework 



The concept of variables , dealt with in this lesson, may be the 
most important lesson in the text. To introduce this idea , multiply 
two numbers without assigning the result to a variable. 

10 PRINT 2717 * 599 

RUN 

1627483 

Run the program and explain that the result of 1 ine 10 is not 
available for use later on in an expanded program since the result has 
not been assigned to a variable. 

We will visualize the locations where information may be stored in 
the computer ' s memory as boxes . Each box will have a unique label , 
called a variable name . For example , the value 



10 X = 2717*599 
20 PRINT X 

RUN 

1627483 



162748: 



the box is called variable X 
the value assigned to the box 



We say that the value 1627483 has been assigned to the variable X . 
Emphasize the difference between the name of the box and the value 
assigned to the box . Remind students that the action of assigning the 
value to the box does not actually take place until 1 ine 10 is 
executed during a RUN of the program. 

The value of X will be retained in memory until either it is 
assigned a different value or a new program is run . This is 
illustrated by adding the following lines to the program above : 

30 X = 55*384 X 

40 PRINT X 
FUN 

1627483 
21120 



21120 
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Begin another example to illustrate string variables: 




NEW 

10 X$ = "X" 
20 PRINT X$ 
RUN 
X 

The string value "X" is assigned to the variable box X$. Make sure 
students understand that X is not used as a variable name. Typically, 
more than one character is 'stored in a string variable. The maximum 
length of a string variable is 255 characters. 

Continue the examples as follows: 

30 X$ = "ABC" 
40 PRINT X$ 
50 PRINT A$ 
60 PRINT X 
RUN 
X 

ABC 


Students may be confused by use of the variable names X$ in line 40 
and X in line 60. It should be explained that X and X$ are independent 
variable names. 

Line 60 demonstrates that, even though assigned a non-zero value 
in the prior demonstration, the variable X now contains the value 0. 
Numeric variables are set to zero at the beginning of a program RUN 
and remain zero unless otherwise assigned. Similarly, line 50 shows 
that string variables are set to null at the beginning of a RUN. When 
printed, a null does not appear. 

Although variable names may be of any length, the text adopts the 
convention of using only a single letter or a single letter followed 
by a single digit as a variable name. There are two reasons for this 
convention. First, only the first two characters are used by the 
computer to distinguish between variable names. BIG and BID represent 
the same variable name to the computer. Second, longer variable names 
may accidentally contain a reserved word. A reserved word is one used 
as a BASIC command. For example, LONE is not a legitimate variable 
name because it contains the reserved word ON. There are about 100 
reserved words, some of the more common of which are IF, OR, STEP and 
TO. And they confuse the computer if they are used as part of a 
variable name. 
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Worksheet 1.2 



Part I For each program below, convert every BASIC statement to an 
English sentence which explains what the computer actually 
does as that statement is executed. Use the terms "value" and 
"assigned to" whenever possible. The solution to the first 
problem is given as an example : 



a) 



b) 



10 X = 5 
20 X = 10 

30 PRINT X 



10 X=5 
20 Y=6 

30 PRINT X*Y 



Solution: 

10 The value 5 is assigned to 

the variable X. 
20 The value 10 is ass igned to 

the var iable X and the value 

is lost . 

30 The value within variable X , 
10 , is printed . 



c) 10 X = 5 
20 y = 6 

30 Z = X * Y 

40 PRINT Z 

d) 10 X = 17 
20 Y = X 
30 PRINT Y 

e) 10 Y = 6 
20 Z = 8 

3 Z = Y * X 

40 PRINT Z 



Part I 1 Find any unnecessary or incorrect statements within the 
following programs and either eliminate or correct them.: 



a) 10 X = 5 
20 Y = 6 
3 PRINT 5 



c) 10 A$ = FIND THE ERROR 
20 PRINT A$ 



b) 



10 X - 5 

2 Y = 6 
30 Z = 8 

4 PRINT 



ci) 10 AS - '^3" 

20 B 17 

30 PRINT A 

40 PRII^JT B$ 



Worksheet 1.2 Solutions 

The worksheet problems may iseem trivial to some students, but 
point out that the phraseology is significant and promise 
that a firm grasp of the concept of a variable will avoid 
numerous problems later. Each problem should be discussed 
with a keen ear to verbal notation. You may prefer to do the 
entire worksheet orally. It is highly recommended that you 
also draw the variable boxes on the chalkboard and show how 
the values within change during the execution of the program. 

10: The value 5 is assigned to the var iable X. 

20: The value 6 is assigned to the variable Y, 
30; The value in box X is multiplied by the value in box ¥ 
and the result, 30? is printed. 

10'. The value 5 is assigned to the variable X, 
20s The value 6 is assigned to the variable Y, 
30; The value in box X is niultiplied by the value in box Y 

and the result, 30, is assigned to the variable Z, 
40: The value within box Z is printed. 

Contrast the techniques of exercises b and c. The technique 
of c is wasteful unless the value in variable Z is needed 
later in the program. Encourage students to minimize the 
numtier of variables introduced in a program, 

10 : The value 17 is assigned to the variable X . 

20 : The value in box X, 17, is now assigned to variable Y, 
30: The value within box Y, 17 ? is printed^ 

10: The value 6 is assigned to the var iable Y . 

20 J The value 8 is assigned to the variable Z. 

30 : The values in boxes X,Y and Z are multiplied together 

and the result ,0 , is ass igned to box Z . The result is 
because the value in box X remains . All numeric 
variables are set to at the beginning of program 
execution and remain unless assigned another value, 

40s The value within box Z, 0, is printed. 



Since 5 and 6 are typed into line 30, there is no need to 
save these values within variable boxes. 

The quotation marks are not apparently intended in line 40 , 

Quotation marks are missing around the string in line 10 , 

Line 30 attempts to print A$ as a numeric variable A and line 
40 to print the numeric variable B as a string BS, 



Lesson 1.3 



OBJECTIVES: a) to recognize three techniques used to assign values 
to variables; INPUT^ READ/DATA and assignment stateraents 

b) to learn to judge which assignment statement is 

most suitable to a given programming problem 

c) to apply the BASIC commands READ, GOTO and INPUT 



ASSIGNMENT; Read pages 1.7 through 1,10 Do review problems 3 and 4 
Text problems 5 and 7 Homework problems 4 and 6 



Three ways are given in Chapter One to change the value within a 
variable box. The following table provides a summary? 





, . .EKEJi^.mTJ.QN , 










READ & DATA 


Changes the value of a variable 
each time the READ is executed 


10 READ X 
20 GOTO 10 
L^......O,<ATA , , X 7 « 3 « 2 IJ. 


INPUT 


Allows the user to change a value 
V7hi1e the program is running , 


10 INPUT X 



The three methods may be contrasted using the following program: 



10 S$ = " IS " 

20 INPUT N$ 

30 READ A$ 

40 PRINT N$ ; S$ ; A$ 

50 GOTO 10 

60 DATA (list of adjectives , see below) 

Allow students to suggest a list of adjectives to be placed in line 
60, but do not reveal the structure of the program. When the data 
list is complete, have the students volunteer to enter their names at 
the terminal. After the error message (OUT OF DATA) is encountered, 
LIST and discuss the program. Be sure to point out that it is more 
efficient to incorporate line 10 directly in line 40. 

Some remarks concerning the INPUT statement: Contrast INPUT X$ 
with the statement INPUT "WHAT IS YOUR FAVORITE COLOR" :XS, In both 
cases f a question mark and a blank space are automatically printed. 

If a program is to be stopped while it is waiting for INPUT to 
occur, the user must press the RESTORE Key while depressing the STOP 
key. This operation halts the run of the program, clears the screen 
and causes the computer to print READY, If the computer is not 
waiting for input, then just STOP will suspend program execution. 

Students sometimes have difficulty recognizing which prog r air^m: 
techniques are most useful for solving a given probiein. Some exarnrjj. o ? 
which may help are presented on the next page. Show each proposed* 
solution and ask the students to explain why it is not the best 
solution. 
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PROBLEM 1 : Write a program which will calculate the area of a 

circle from the relation AREA=PI * R " 2 where PI is the 
number 3,1416 



PROPOSED SOLUTION: 10 INPUT "RADIUS ";R 

20 INPUT "VALUE OF PI ";P 
30 PRINT "AREA IS " ;P*R*R 



DISCUSSION: Students should realize that the value PI is a constant 
(3,1416) and need not be typed in each time the program 
is run so line 20 should be changed to an assignment 
statement , 



PROBLEM 2 : Write a program which will print out a list of your 
friends' telephone numbers . 



PROPOSED SOLUTION: 10 A$=" JACK 

20 B$="TACK 
30 C$="MACK 

40 PRINT A$ 
50 PRINT B$ 
60 PRINT C$ 



111-2222" 
333-4444" 
555-6666" 



DISCUSSION: Assigning a different variable for every data item is 
unnecessary . A READ/DATA is more appropriate: 
10 READ A$ 
20 PRINT A$ 
3 GOTO 10 

40 DATA "JACK 111-2222" ,"TACK 
333-4444" , "MACK 555-6666" 



PROBLEIK 3 : A student is working in a lab and needs a program to 

convert teroperaturci readings from Celsius to Farenheit, 
The relationship is given by: 
P - 9*C/5+32 

The first reading to be converted is 20 degrees Celsius^ 



PROPOSED SOLUTION: 10 READ C 

20 F = 9*C/5+32 
30 PRINT F 
40 DATA 20 



DISCUSSION; The exper iiinenter would be greatly inconvenienced if each 
conversion required retyping RUN- X, An INPUT statenient 
would resolve the problem along with a GOTO at line 40. 

■ ;nfi,'T c 

/ . =■ 9*C/5+32 
•F U'T F 
. ■' 10 

c T"- <-■ ,■^ f- . ar ,''>t ' •■ I * , ich i :> < \ es 



It is wise to place DATA statements at the end of the program 
because the computer constructs one data list from all available DATA 
statements. To illustrate, consider the following program: 



10 DATA 70,20 

20 READ X 

30 DATA 10,90,30 

40 PRINT X/10 

50 READ Y,Z 

60 PRINT Y * Z 

70 DATA 40 

80 GOTO 20 
The program may be simplified to : 

10 READ X 
20 PRINT X/10 
30 READ Y,Z 
40 PRINT Y * Z 
50 GOTO 10 

60 DATA 70,20,10,90,30,40 

Students should be cautioned to make use of GOTO statements only 
when absolutely necessary. In longer programs they tend to destroy the 
logical flow of a program and make it much harder to discover errors. 
It is also considered better programming style to have GOTO statements 
direct a program back to previous program lines rather than skip lines 
and jump ahead. For example: 50 GOTO 10 may be acceptable but not 10 
GOTO 50. 
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Worksheet 1.3 



Part I 
a) 

b) 



Find the errors, if any , in each of the following programs; 



c) 



Part II 



a) 



b) 



10 READ R 

20 PRINT R * .06 

30 DATA 17,29,3,6,9 



10 READ A 

20 READ B$ 

30 PRINT B$; "IS AGE ";A 

40 GOTO 20 

50 DATA 17, JOHN, 12, JIM, 16 , JOAN 



10 READ X,y ,Z 

20 PRINT (X + Y + Z) / 3 

30 GOTO 10 

40 DATA 79,67,92,53,99,70,87 



d) 10 DATA 3,9,6,12,15 
20 PRINT S * .06 

3 READ S 

4 GOTO 10 

e) 10 READ X$ 
20 INPUT X$ 

30 PRINT X$; " IS A GREEK 

LETTER" 

40 GOTO 10 

50 DATA ALPHA, BETA, GAMMA 

f) 10 X = 1 
20 Y = 6 

30 READ X,Y 

40 PRINT X * Y 



Determine the exact output. Be sure to indicate any blank 
spaces that may occur in the output. 



10 READ X c) 

20 PRINT X * X 

30 GOTO 10 

40 DATA 1,2,3,4 



10 READ X,y,Z d) 

20 PRINT X + Y + Z 

30 GOTO 10 

40 DATA 6,2,13,4,9,1,2,3 



10 READ A$,B$,C$, 
20 PRINT A$ 
30 PRINT B$ 
40 PRINT C$ 

50 DATA 1 AM, "SNEEZE, PLEASE" , , 
KNEES 

10 READ B$,G$ 
20 PRINT B$; " LOVES ";G$ 
30 READ X,y,Z 
40 PRINT X; " + "jY;" = " ; Z 
50 DATA DODD,DENISE, MELISSA, 2, 
3,5 
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Worksheet 1.3 Solutions 



Part I 

a) A GOTO statement is needed in order to evaluate the remainder 
of the data list. 

b) Line 40 should be GOTO 10. 

c) There are no Y and Z values in the data list to complement 
87. 

d) Line 30 must precede line 20. There is nothing technically 
wrong with line 40, but it is not a good practice to send a 
program to a data statement. In any case, the data statement 
usually is typed at the end of the program, 

e) A value is acquired for X$ in two different ways. One of 
them is unnecessary or redundant. 

f) Values have already been assigned to X and Y when line 30 is 
encountered. Line 30 should be deleted. 



a) 1 
4 

9 

16 

?OUT OF DATA ERROR IN 10 

b) 21 
14 

?OUT OF DATA IN 10 

c) 1 AM 
SNEEZE, PLEASE 

(The computer interprets a data element between the two 
commas . ) 

d) DODD LOVES DENISE 

? SYNTAX ERROR IN 50 

(When X is read at line 30 , the next item in the data list is 
MELISSA, but a string cannot be assigned to a numeric 
variable box.) 
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Lesson 1 .4 



OBJECTIVES: a) to contrast two techniques for the use of the PRINT 
statement: within a program and immediate mode 

b) to understand the difference between using a 
semi-colon and a comma in conjunction with the PRINT 
statement 

c) to understand the use of the REM statement 



ASSIGNMENT: Read pages 1.10 through 1.15 Do review problems 5 and 6 
Text problems 9,11,13,15 Homework 8,10,12,14 



The significant part of this lesson is the use of punctuation to 
control the format of output . For class discussion use Transparency 
Master 2 . Demonstrate the two statements: 

10 PRINT "A" ; "B" 
20 PRINT "A" ,"B" 

Copy the results of printing these lines on the projected grid using 
each box on the grid to represent the location of a single character. 
Note that the result of 

30 PRINT "A" ; 
40 PRINT "B" 

is identical to the result from line 10 above because of a semicolon 
at the end of 1 ine 30 . The semicolon instructs the computer not to 
perform a linefeed but to continue printing on the same line. 

Elaborate on the use of commas by printing the following line: 

50 PRINT "A" ,"B" ,"C" 

Illustrate the size of the various comma " zones" by drawing brackets 
above the grid. It is assumed here that you are working in 40-column 
format. 






9 


10 


19 


20 


29 


30 


39 











Commas are most frequently used in order to c reate tables . In 
40-column format a table created by using commas may have at most 4 
columns of information, 

PRINT TAB may be introduced as being similar to the tab feature on 
a typewriter. Pushing the tab key never moves the carriage to the 
left. Similarly, the computer can only tab from left to right. 
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Establish a convention for students to use in representing spaces 
when not working on a grid. The letter b with a slash (b) is often 
used to represent a blank space, 

10 PRINT "I HAVEb";X; "bCATS." 

Caution students that when a problem requests exact output , they 
must include space symbols where ambiguity may result . 

Some of your students may notice that the semicolon is unnecessary 
at some places within a program. For example , consider the output 

produced by lines 30 and 40 in the following program: 

10 X = 5 

20 Y = 4 

3 PRINT "X=";X; "AND ¥=";¥;"!" 

40 PRINT •'X="X"AND Y^^Y"!" 

RUN 

X= 5 AND Y= 4 I 

X= 5 AND Y= 4 ! 

The outputs are ident ical . But the statement of 1 ine 40 is more 

obvious. Of course^ there is a more profound difference between the 
statements : 

PRINT X; y 
PRINT XY 

The computer considers XY to be the var iable name for a single 
variable. 

In Lesson 1 . 2 it was shown that numeric var iables are set to zero 
and string variables are set to null at the beg inning of program 
execution . Any prior contents of the variables boxes are lost. The 
most recent value is , on the other hand , retained following the end of 
program execution. Immediate mode can be used to reveal the final 
value of a variable. Fqr example : 

10 X$ = "SSSSS. . .BANG! " 

20 N = 5 

RUN 

PRINT X$;N 
SSSSS. . .BANG! 5 

Note that the RUN printed nothing since the program contained no PRINT 
statement , but the values of the variables were pr inted when immediate 
mode was used . 
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Si- 



Transparency 1 /2 
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Worksheet 1 .4 



Part I 



a) 



Predict the output of the following immediate mode command 
sequences: 



X=2 

Y=17*X 
PRINT Y 



b) 



X=0 

Y=17*X 
X=2 
PRINT Y 

Part II On the grid record the EXACT output of the following program: 



10 X = 1 
20 Y = 2 
30 Z = 3 
40 PRINT X? Y; Z 
50 PRINT X,Y;Z 
60 PRINT ,"TOAD" 
70 PRINT " , 
80 PRINT " 1 " 

110 X$ = "ABCDEFGHIJKLMNOPQ" 
120 Y$ = "RST" 
130 PRINT X$;Y$ 
210 PRINT TAB( 5) ; 
220 PRINT TAB( 1);''30"; TAB( 17 
) ; "33 " 

230 PRINT TAB( 10);"?"; TAB( 9) 
• " #" 

240 PRINT "TAB(3) ;X" 



CL ^ 1 ^ 1 ^ ^ J J *L '® •« <i J3 W f5 /fc 17 <2 If 20 
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Worksheet 1.4 Solutions 

Part I 



a) 
b) 



34 





Part II 



n 



A 



1 
1 







10 !l II Ij \-I 



\1 Vi i'i 







D 



ElFiG- 

1 — 



A 



D 

/I/ 



Q 



RiS 



T 



T 



) 
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Chapter 1 Supplementary Problems 



1) Suppose that material is typed into the computer so that the 
monitor shows the following: 

NEW 

10 PRINT "RED" 
20 PRINT "BLUE" 
SAVE "PR0G1",8 
20 

LIST 

What will now be the output to the monitor? Then, if 

LOAD "PR0G1",8 
RUN 

is entered, what will be output to the monitor? 

2) Determine the exact output of the following program: 

10 X = 3 

20 y = 4 

30 Z = X + y 

40 y = z + X 

50 X = z + y 

60 PRINT X + Y - Z 

3) Write a program which uses the READ statement in conjunction with 
a DATA statement containing three elements to produce an output 
similar to the one below. The letters WORD may appear only once in 
your program. 

RUN 

WORD 1 WORD 2 WORD 3 

?OUT OF DATA ERROR IN 10 

4) Write a program that will ask the user for his or her name, and 
then print this information over and over until interrupted as 
shown: 



YOUR NAME?JOHN 



JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 


JOHN 



BREAK IN 20 



1.23 



Chapter 1 Supplementary Problem Solutions 

1) a) 10 PRINT "RED" 

b) RED 
BLUE 



2) RUN 
20 



3) 10 READ N 

20 PRINT "WORD" ;N, 

30 GOTO 10 

40 DATA 1,2,3 



4) 10 INPUT "YOUR NAME";N$ 
20 PRINT N$, 
30 GOTO 20 
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Part I 



c) 



Chapter 1 Test 

Determine the exact output of each of the following programs 



a) 


10 


X = 10 


a) 


5 


PRI NT MAROON 




20 


Y = 12 




10 


X $ = " RED " 




30 






20 


PRINT Y$ 




40 


PRINT X;Y; Z 




25 


READ X$,Y$ 




50 


PRINT X,Y,Z 




30 


DATA PINK, AMBER 


b) 


10 


X$ = "GOOD SHALL" 


e) 


10 


PRINT X 




20 


Y$ = "CONQUER ALL" 




20 


X = 3 * 3 




30 


Z$ = " ! " 




30 


PRINT "X" 




40 


PRINT X$; Y$,Z$ 




40 


PRINT "3*3" 



10 
20 
30 
40 
50 
60 
70 
80 
90 



Q 
R 
S 
T 
S 
Q 



= 5 

= - 2 



3 
S 
T 
S 



+ (2 * R) 
+ R + R 
* T * R 



+ Q 



PRINT Q 
PRINT S 
PRINT T 



Part II 



a) 



b) 
c) 



Circle the programming error (s) within each program given. 
Explain what must be done to correct the error . If no error 
exists , state so . 



10 


READ X$ 


d) 


10 


PRINT 2 


20 


PRINT 2 * X$ 




20 


PRINT 18 - 16 


30 


GOTO 10 




30 


PRINT TWO 


40 


DATA 11,22,33 












e) 


10 


READ X 


10 


INPUT X; Y 




20 


PRINT X 


20 


PRINT X * Y 




30 


GOTO 10 








40 


DATA 1,2,3,4-5 


10 


READ X 








20 


PRINT X * X 








30 


PRINT X / X 








40 


PRINT X - X 








50 


GOTO 20 








60 


DATA 2,4,6,8,10 
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Part III Write each of the following programs as concisely as 

possible . 

a) Write a program that will allow the user to enter a list of 
three numbers at the keyboard, then print the average. A 
sample run will look like: 

RUN 

ENTER 1ST NUMBER? 4 
ENTER 2ND NUMBER? 6 
ENTER 3RD NUMBER? 11 
THE AVERAGE IS 7 . 

b) Wr ite a program, containing the data statement 
DATA A,B,C,D,E,F,G,H,I,J,K 

which will produce the following output: 
RUN 

AB CD 
EF GH 
IJ 

?OUT OF DATA ERROR IN 30 

c) Write a prog ram which uses INPUT statem.ents to produce an 
output sim.ilar to the one below. 

RUN 

YOUR NAME? JOHN 

STATE OF BIRTH? MARYLAND 

NUMBER? 90 

I'M JOHN, AND I WAS BORN IN MARYLAND . 
I HOPE FOR A 90 ON THE FIRST TEST! 

Don ' t forget the period after the state name . 
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Chapter 1 Test Solutions 

The credit for each problem is given in brackets [ ] . 
Part I [ 5@ = 25 ] 

a) 10 12 8 

10 12 8 

b) GOODfiSHALLCONQUERbALL5fci5i5l3bt5'! 

c) 

4 

d) MAROON 

e) 

X 

3*3 

Part II [ 5@ = 25 ] 

a) There is a type mismatch in lines 10 and 20 . The computer 
cannot do math operations on a string variable. To correct 
the error, change X$ to X . 

b) There is a syntax error in line 10 . Replace the semicolon 
with a comma . 

c) The error occurs in line 50 . Line 50 should be as follows: 

50 GOTO 10 

d) The error occurs in line 30 . Line 30 should be: 

30 PRINT "TWO" 

e) The error appears in line 40 . Mathematical expressions (4-5) 
are not allowed in DATA statements . Line 40 should be: 

40 DATA 1,2,3,4,5 

Part III 

a) 10 INPUT "ENTER 1ST NUMBER"; A [ 15 ] 
20 INPUT "ENTER 2ND NUMBER" ; B 

30 INPUT "ENTER 3RD NUMBER" ; C 

40 PRINT "THE AVERAGE IS"; (A + B + C) / 3;"." 

b) 10 READ A$,B$ [ 20 ] 
20 PRINT A$;B$, 

30 READ C$,D$ 

40 PRINT C$;D$ 

5 GOTO 10 

60 DATA A,B,C,D,E,F,G,H,I,J,K 

c) 10 INPUT "YOUR NAME" ; N$ [ 15 ] 
20 INPUT " STATE OF BIRTH" ;S$ 

30 INPUT " NUMBER" ;N 

40 PRINT "I'M " ; N$ ; " , AND I WAS BORN IN ";S$;"." 
50 PRINT "I HOPE FOR A";N; "ON THE FIRST TESTl " 
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Lesson 2.1 



OBJECTIVES: a) to learn the symbols for mathematical operations 

b) to reduce mathematical expressions which use the 
computer's order of operations 

c) to distinguish between conditional and 
non-conditional statements 

d) to comprehend the meanings of the conditional 
symbols and to apply IF . . .THEN statements in 
programming applications 



ASSIGNMENT: Read pages 2.1 through 2.6 Do review problems 1-4 
Text problems 1,3,5,7,9 Homework problems 2,4,6,8 



Have the students guess the result of the following series of 
operations: 

1+3*2T(2/1+1) 

Students will disagree . The following table summarizes the convention 
established for the order of operations on any computer: 

1) Do operations within parentheses , innermost first. 

2) Raise to a power (T) from left to right. 

3 ) Multiply and divide ( * and /) from left to right . 

4) Add and subtract (+ and -) from left to right. 

Students should now agree that the above result is 25. 



The text needs no elaboration with respect to IF . . . THEN 
statements. Students generally have no trouble with the idea of a 
condit ional statement or with the conditional symbols . But they will 
need a great deal of practice in order to become proficient at their 
application . 

It is important to emphasize to students that IF . . . THEN statements 
which interrupt sequential program flow should only be used when 
necessary. Too many of them destroy logical structure and make a 
program hard to read or debug. If possible , it is best to have an 
IF. . .THEN statement send a program back to previous lines rather than 
to jump over lines to a later point in the program. Obviously this is 
not always possible. 
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Problems may arise from string comparisons such as : 
"AB" ? "A " 

Should the question mark be replaced by or ' > ' ? Point out that the 

"A " can be considered "A", A space has a "lesser" value than a letter 
of the alphabet. Therefore: 

"AB" > "A " 



More advanced students may be directed to the ASCII character code 
table on page 8.3 of the text . The comparison between two characters 
is performed according to the value of the decimal code given in the 
table. 

"c" > " Z" 



Therefore, a lower case c is greater then the upper case Z , and a 
number is smaller than a letter . A space is "le^s than" the entire 
set of printable characters. 



Consider Program 2 . 3 in the text carefully. Make sure students 
see the necessity of the second statement of the multiple statement at 
line 20: 

IF 2 * X - 18 = THEN PRINT X; "IS THE SOLUTION" : GOTO 10 

The following sample illustrates what would happen if the GOTO 10 is 
omitted from 1 ine 20 : 

RUN 

? 9 

9 IS THE SOLUTION 

9 IS NOT THE SOLUTION 

BREAK IN 10 

Note that the infinite loop in Program 2 . 3 is poor programming style 
and should be avoided wherever possible. 
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Worksheet 2.1 



Part I Determine the output of each of the following programs: 



a) 



10 PRINT 
20 PRINT 
30 PRINT (3 + 5) 
40 PRINT (3 + 5) 
50 PRINT 
60 PRINT 
70 END 



3*5 + 
3 + 5 * 



4 + 5 + 
4 + 4 / 



2 

2 
* 

* 

6 
2 



* 5 
+ 5 

(2 + 5) 
2 + 5 
/ 3 
T 3 



b) 



2 
3 



10 X = 

20 Y = 

30 Z = X 

40 W = Y 

50 P = Z 



T Y 
t X 

+ W 
60 PRINT Z 
70 PRINT W 
80 PRINT P 
90 END 



Part II 



Insert '<' or •>' in each pair of strings to create a true 
expression. Refer to the chart on page 8.3 of the text for 
help. 

"AB" "BA" 

"AB" "ABC" 

" A" "A " 



"A" "AA " 
"JOHN IS O.K. " 



"JOHN ISN'T ALL RIGHT" 



a) "AB" "BA" d) 

b) "AB" "ABC" e) 

c) " A" "A " f ) "A " " Z" 

Part III Locate any errors which exist in the following statements: 

a) IF X = 1 OR -1 THEN PRINT "THE ABSOLUTE VALUE OF X IS 1" 

b) IF X > AND IF Y > THEN PRINT "BOTH VALUES ARE POSITIVE" 

c) IF X < 3 AND X > 3 THEN 10 

d) IF X = 3 AND Y = 6 THEN IF Z = 4 THEN PRINT "YEAHl " 

e) IF X <> 17 PRINT "X DOES NOT EQUAL 17" 
Part IV Write the following programs; 

a) Write a program in which the user inputs a temperature . Have 
the program run a test against the temperature to provide the 
user with a suitable vacation spot. If the temperature is 

< -32 or > 120, you should print "THIS WEATHER IS UNBEARABLE- 
STAY AT HOME" . If the temperature is between -32 and 40, 
inclusive, you should print "LET' S GO SKIING" . If the 
temperature is between 80 and 120 , inclusive, then the phrase 
"LET'S GO TO THE BEACH" should be printed. If none of these 
conditions are met, print "LET' S STAY HOME; IT'S NICE HERE". 
Use only one PRINT statement. The use of multiple statement 
lines is suggested. 

b) Write a program in which the user will input a value for the 
variable X . You are to calculate the values for N and M 
using the formulas below. Print out the larger value using 
the format " N= . . . " or "M= . . . " . Try to predict which value 
will be larger before the run. 

N= Xf3 + 3 * X - 10 
M= Xt2 + 3 * (X - 10) 
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Worksheet 2.1 Solutions 



Part I 



a) 25 b) 8 

18 9 
56 26 
21 
11 
4.5 



Part II 



a) < d) < 

b) < e) < 

c) < f) > 



Part III 

a) OR -1 should be replaced by OR X = -1 

b) The second IF should be deleted 

c) The statement can never be true 

d) O.K. as it is 

e) THEN is missing before the command PRINT 



Part IV 

a) 10 INPUT "ENTER A TEMPERATURE" ; T 

20 IF (T<-32) OR (T>120) THEN A$= "THIS WEATHER IS 

UNBEARABLE- STAY HOME"; GOTO 60 
30 IF (T>=-32) AND (T<=40) THEN A$ = "LET'S GO SKIING" : 

GOTO 60 

40 IF (T>=80) AND (T<=120) THEN A$ = "LET'S GO TO THE 

BEACH" : GOTO 60 
50 A$ = " LET • S STAY HOME; IT' S NICE HERE" 
60 PRINT A$ 
70 END 

b) 10 INPUT "ENTER A VALUE FOR X";X 
20 N = Xt3 + 3 * X - 10 

30 M = X^2 + 3 * (X - 10) 

40 IF N > M THEN PRINT "N ="; N:END 

50 PRINT "M =" ;M 

60 END 
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Lesson 2.2 



OBJECTIVE: a) to create repetitive situations using the 
FOR... NEXT statement 



ASSIGNMENT: Read pages 2.7 through 2.12 Do review problems 5-7 
Text problems 11,13,15,17,21,23 Homework problems 

10,12,16 ,22 



Consider the FOR. . .NEXT loop: 
5 PRINT N 

10 FOR N - 3 TO 10 STEP 2 
20 PRINT N; 

30 NEXT N 

40 PRINT "LOOP COMPLETE" 
50 PRINT N 
60 END 

Using the box anology , write the list of values the loop variable N 
may take. 



N 



N 



N 



3 5 7 9 



11 



Line 5 proves that the variable is assigned the value before being 
reassigned at line 10. 

Stress that whenever a loop is 'entered', the loop variable must 
take on the first value in the list. Each time the NEXT statement is 
encountered , the computer looks back to the list and begins the loop 
again with N set to the next value in the list. The computer 
increments the loop variable, then checks to see if the result is 
beyond the list . In the example the value assigned to N after the 
loop is completed will be 11. 

The importance of indenting the program statements inside of a 
F0R...NE1XT loop cannot be over-emphasized. Type (Commodore) I and 
add the necessary spaces (we have adopted two as our convention) 
between the line number and accompanying statement. Indenting makes a 

prograiu far easier to read and visualize^ 

In sonie circuiiistances a programmer may choose to exit a loop 
prematurely using an IP statesnent, but this is usually not advisable 
and is consi.dered poor programming style. Also, an OUT OF MEMORY 
ERROR roay occur. 



The students should be cautioned about tamper ing with the loop 
variable while the loop is being executed . Consider the following 
example: 

10 FOR N = 1 TO 10 
20 PRINT N / 2 
30 N = 11 
40 NEXT N 

When NEXT is encountered , N already exceeds the largest value in the 
list , so the loop is exited . 

Conversely, the loop variable may be reset so that the loop 
continues . This typically results in an endless loop . For example: 

10 FOR N = 1 TO 10 
20 PRINT N / 4 
30 N = 3 

40 NEXT N 

The output will be: 

RUN 
.25 
1 
1 
1 
1 

BREAK IN 20 

Altering the loop variable from within the loop is generally an 
unintentional error generated when a variable is introduced twice in a 
program for two different purposes . It is one of the first errors to 
check for when a loop is operating improperly . 

If a loop is established in which the initial value of the loop 
var iable is higher than the terminating value , the loop will be 
executed once . Common sense would seem to dictate that it not be 
executed at all, but computers do not always operate using common 
sense. Also , it should be stressed that both the incrementation and 
testing of the loop variable occur during execution of the . . . NEXT 
statement. This is why the loop will execute at least once and why 
the number 21 is printed at 1 ine 40 . For example: 

10 FOR N = 20 TO 19 
20 PRINT N 
30 NEXT N 
40 PRINT N 

RUN 
20 
21 
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students should realize that every time a loop is entered the 
initial value of the loop variable is reinitialized. For example: 



10 FOR X = 1 TO 4 
20 PRINT "X =";X 
30 NEXT X 
40 PRINT : PRINT 
50 GOTO 10 



RUN 
X = 1 
X = 2 
X = 3 
X = 4 



X = 1 

X = 2 

X ~* 3 

X = 4 



X = 1 



BREAK IN 20 
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Worksheet 2.2 



Part I List the values of the loop variable in the order that 
they will be assigned within the loop: 



a) FOR N = 1 TO 10 STEP 2 

b) FOR J = 3 TO 7 STEP 2 

c) FOR Z = .5 TO .7 STEP .1 



d) FOR X = 9 TO 6 STEP -2 

e) FOR y = TO 99 STEP 33 

f) FOR Q = 1 TO 10 STEP 10 



Part II Determine the output of each of the following programs: 
a) 



b) 



c) 



d) 



1 A 

iO 


FOR K = 


1 


TO D 


e) 


10 


FOR J = 1 TO 99 


20 


PRINT 


K 


' 2 




20 


IF J < 39 THEN 50 


30 


NEXT K 








30 


IF J > = 44 THEN 50 












40 


PRINT J 












50 


NEXT J 












60 


END 


10 


X = 3 






f) 


10 


X§ = "ALPHA" 


20 


FOR X = 


1 


TO 5 




20 


FOR I = 1 TO 5 


30 


PRINT 


X 






30 


READ A$ 


40 


NEXT X 








40 


IF A$ > X$ THEN X$=A$ 


50 


PRINT X 








50 


NEXT I 












60 


PRINT X$ 


10 


FOR N = 


1 


TO 1 




70 


DATA ALP HA, BETA, GAMMA, 


20 


PRINT 


N 








DELTA, EPSILON 


30 


NEXT N 












10 


A = 2 






g) 


10 


FOR K = 1 TO 3 


20 


FOR X = 


A 


TO 3 * A 




20 


PRINT K 


30 


PRINT 


X 






30 


NEXT K 


40 


NEXT X 








40 


GOTO 10 



Part III Circle the programming error (s) within each program. Explain 
what must be done to correct the error. If no error exists, 
state so. 



a) 10 FOR U = 1 TO 20 
20 PRINT U 
30 NEXT V 



b) 10 FOR P = 1 TO 20 
20 PRINT P 
30 GOTO 10 



c) 10 FOR K = 1 TO 3 
20 PRINT K 

30 NEXT K 
40 GOTO 20 

d) 10 FOR S = 9 TO 5 
20 PRINT S 

30 NEXT S 



2.9 



PART IV Using at most two PRINT statements, write a program that 

gives the following output. You will need two FOR. . .NEXT 

loops to obtain this output . 

RUN 



t * 

* * 



>f: 
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Worksheet 2.2 Solutions 



Part I Note again? the computer increments the loop index and then 
checks to see if the incremented value is within the range 
established in the FOR statement. 



a) 
b) 
c) 

Part II 
a) 



b) 



1/3,5,7,9 
3,5,7 
.5, .6, .7 



1 
4 
9 

16 
25 

1 
2 
3 
4 
5 
6 



d) 
e) 
f) 



e) 



f) 

g) 



Note: Line 10 is of no consequence. 
Also, a 6 is produced in line 50 
because of the final incrementation 
of the loop variable as discussed on 
pps . 2.5-2 .6 . 



9,7 

,33 ,66,99 

1 



39 
40 
41 
42 
43 

GAMMA 

1 

2 
3 
1 
2 
3 
1 
2 
3 
1 



c) 



(Note: endless loop) 



Part III 

a) 

b) 
c) 



d) 



Part IV 



2 
3 
4 
5 
6 



Line 30 should be NEXT U. 
Line 30 should be NEXT P. 

Loops cannot be entered without first executing the FOR 
statement . As it is written , this prog ram will terminate 
with the error message NEXT WITHOUT FOR ERROR IN 30 . 
A negative STEP statement is implied . 



10 FOR I = to 18 STEP 2 



TAB( I );"*"; TAB ( 38 - I) ; 

I ) I " * " 



20 PRINT 
30 NEXT I 

40 FOR I = 18 TO STEP -2 
50 PRINT TAB( I );"*"; TAB ( 38 
60 NEXT I 



2 @ X X 
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Note that the domain has been narrowed to avoid unnecessary 
computation. The solution is most easily represented on a number 
line: ,-VV 



18 19 20 21 

Of course, the endpoints can be determined even more accurately if 
desired . 



B. SEARCHING A DATA LIST 

The idea of a "search" to find a specific item of data will be 
particularly valuable when files are introduced in Chapter 9. 

The procedure of searching may be suggested by the commonplace 
experience of calling "directory assistance" to determine a phone 
number . The name of the party is entered into a computer , and the 
computer looks at each item in its data list until a match is found . 
It knows when a match is found by checking to see if the name entered 
is the same as the name read from the 1 ist . The program for a very 
small town might look like this: 

10 INPUT "ENTER NAME" ; E$ 
20 FOR I = 1 TO 10 
30 READ N$,P$ 

40 IF E$ = N$ THEN PRINT P$ : GOTO 10 
50 NEXT I 

60 PRINT "NAME NOT ON FILE" : GOTO 10 

70 DATA GOTWALT, 656-1919 

71 DATA SMITHERS, 666-7890 

72 DATA JOHANSON,666-0101 

73 DATA BURCKHARDT, 666-0009 
7 4 DATA CORSON, 666-1111 

75 DATA STAWICK, 569-1822 

76 DATA MACBETH, 569-1635 

77 DATA LATIMER, 666-6846 

78 DATA CAMPBELL, 65 9-89 89 

79 DATA HERTZOG, 656-7777 

Many students will be familiar with the frustration encountered when 
the exact spelling is not known: E$ must equal N$ exactly or the name 
is NOT ON FILEl 

Notice the significance of the multiple statement in line 40 . If 
the GOTO 10 were omitted , the result would be as follows: 

RUN 

ENTER NAME ? MACBETH 
569-1635 

NAME NOT ON FILE 
ENTER NAME ? 

BREAK IN 20 
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The RESTORE statement has been purposely omitted from the 1 isting 
above . In the following RUN see if students can explain why entering 
CORSON causes an error: 

RUN 

ENTER NAME 7STAWICK 
569-1822 

ENTER NAME 7C0RS0N 

?0UT OF DATA ERROR IN 40 

Introduce a RESTORE statement at line 15 and run the program again . 

The following program illustrates how to search through data to 
f ind the highest valued element: 

10 FOR I = 1 TO 5 
20 READ A$ 

30 IF A$ > M$ THEN M$ = A$ 
40 NEXT I 

50 PRINT "THE STRING WITH THE HIGHEST VALUE IS " ; M$ 

60 DATA FROG, CAT, ZEBRA, APE , EEL 

RUN 

THE STRING WITH THE HIGHEST VALUE IS ZEBRA 

M$ should be thought of as a variable box which contains the "maximum 
value encountered so far". At line 30 M$ is assigned a new string 
value only when the string value of A$ is greater than the highest 
value encountered , M$ . Note that this system works because initially 
the variable M$ contains a null string , and a null string is 
alphabetically less than any character . 

Ask your students how the program could be altered in order to 

find the alphabet ically lowest word . Simply reversing the ' > ' is not 

sufficient because none of the words will be less than a null string. 
The solution is to assign M$ an initial high value . 

5 M$ = "ZZ" 

30 IF A$ < M$ THEN M$ = A$ 
RUN 

THE STRING WITH THE LOWEST VALUE IS APE 



C. IMPROVING INPUT TECHNIQUES 

The student has already seen how the s imple statement 
20 INPUT X 

can be made more meaningful to the user by writing the following line 
instead : 

20 INPUT " ENTER A DATA POINT" ;X 
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Suppose now that line 20 is to be repeated 100 times , as in the 
following program: 

10 FOR I = 1 TO 100 

20 INPUT "ENTER A DATA POINT" ;X 
30 NEXT I 

To f acil itate the data entry, it would be helpful to tell the user 
which data point is about to be entered . A sample RUN would then look 
like this : 

RUN 

ENTER DATA POINT 1, PLEASE? 7.1 

ENTER DATA POINT 2, PLEASE? 6.9 

ENTER DATA POINT 3, PLEASE? 

BREAK IN 20 

To accomplish this students will often mix the concepts of PRINT and 
INPUT: 

20 INPUT "ENTER DATA POINT" ;N; " , PLEASE" ;X 

The program will perceive the N as a var iable to which data is to be 
assigned . One solution is to write the 1 ine : 

20 PRINT "ENTER DATA POINT" ;N; " , PLEASE" ; : INPUT X 



Another technique related to INPUT may be referred to as " input 

protection", Most professional business programs are protected 
against improper input. The computer will prevent the user from 
entering an alphabetic character when a nufltoer is expected, but the 
programmer must supply all other protection. As a simple example, 
consider a program designed to calculate the percentage grade on a 
test based upon the number correct out of 21 C possible points; 

10 INPUT "NUMBER CORRECT" |C 

20 G - C / 210 * 100 

30 PRINT '^PERCENTAGE GRADE IS ''jG 

4 GOTO 10 

Tr,e input may be protected here by adding: 

1.5 IF C x OR C > 210 TEEli PRINT "REENTER"; GOTO 10 

W'"M:k;"heet /<.3 Fart III and Supplementary -i-obif^n- 6 deal further witn 
x.he idea of mnut protection. 
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Part I Determine the output of each of the following programs: 

a) 10 FOR X = - 10 TO 10 

20 IFXt2<X*4 THEN PRINT X 
30 NEXT X 

b) 10 FOR X = - 10 TO 10 

20 IFXT2>X*4 THEN PRINT X 
30 NEXT X 

c) 10 FOR X = - 10 TO 10 

20 IFXT2=X*4 THEN PRINT X 
30 NEXT X 

d) 10 FOR I = 1 TO 5 
20 READ A$ 

30 IF A$ < X$ THEN X$ = "AV" 
40 NEXT I 
50 PRINT X$ 

60 DATA APPLE, AJAX, AFTERNOON, AVERAGE, APE 

e) 10 FOR A = -2 TO 2 

20 C = At3-3*A + 3 

30 IF C > M THEN M = C:N = A 

40 NEXT A 

50 PRINT "WHEN A IS";N; "THE MAXIMUM OF";M; "IS ATTAINED." 

Part II What protection might be added to a program which asks for 
INPUT of: 

a) item costs in a department store? 

b) numeric month of the year? 

c) hourly salary rate? 

d) current year? 
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Part III Write each of the following programs as concisely as 
possible: 

a) Write a program that inputs the coefficients of the quadratic 
equation and determines whether the roots are real (bt2-4ac > 
0) or imaginary (bT2-4ac < 0) . 



RUN 

A,B,C?1,4,4 

ROOTS ARE REAL 



RUN 

A,B,C?1,1,1 

ROOTS ARE IMAGINARY 



b) Write a program to search a list of records by artist, and 
list out all the albums you have recorded by that artist . 
When the search is completed , have the computer ask if you 
wish to try again . Check for a " Y/N" type answer . Use lines 
110-250 below as DATA statements . Hint : remember to include 
the RESTORE statement . 



110 
120 
130 
140 
150 
160 
170 
180 
190 
200 
210 
220 
230 
240 
250 



DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 



BACH,B MINOR MASS 
BACH, ORGAN FAVORITES 
BACH, CONCERTOS 
MOZART, DON GIOVANNI 
MOZART, ORGAN MUSIC 
MOZART, PIANO CONCERTO #26 
VIVALDI, GREATEST HITS 
VERDI ,FALSTAFF 
VERDI, OTHELO 
BEATLES, HEY JUDE 
BEATLES , REVOLVER 
BEATLES , SGT . PEPPER 
JOEL, STRANGER 

.inPT. TnRM.QfrTT.T 



JOEL, TURNSTILES 
JOEL, COLD SPRING HARBOR 



RUN 

ENTER ARTIST' S NAME? JOEL 

JOEL STRANGER 

JOEL TURNSTILES 

JOEL COLD SPRING HARBOR 

DO YOU WANT TO CHECK ANOTHER (Y/N) ? Y 

ENTER ARTIST'S NAME7M0ZART 

MOZART DON GIOVANNI 

MOZART ORGAN MUSIC 

MOZART PIANO CONCERTO #26 

DO YOU WANT TO CHECK ANOTHER (Y/N) ? N 

THAT'S ALL FOR NOW. . .BYE 
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Worksheet 2.3 Solutions 



Part I 



a) 



1 
2 
3 



b) 



-10 

-9 

-8 

-7 

-6 

-5 

-4 

-3 

-2 

-1 

5 

6 

7 

8 

9 

10 



c) 
4 



d) None of the words are 'less than' X$ because X$ really 
contains only nulls. The program will produce no apparent 
output. Show students that adding the line 5 X$ = "ZZ" 
will allow the program to search for the word 'closest to the 
beginning of the dictionary', in this case, AFTERNOON. 

e) WHEN A IS -1 THE MAXIMUM OF 5 IS ATTAINED. 



a) No item should have a cost less than or equal to zero. 

b) No value should be less than 1 or greater than 12. 

c) No sala ry should be less than the minimum wage . 

d) No value less than the year the program was written. Note: 
an upper limit may also be postulated. The effective 
usefulness of most programs should be limited to a few 
hundred years at most. This author knows of certain business 
programs (written in 1978 by a small company) which will fail 
after 1999! Not only was this bad programming policy, but 
the INPUT was not protected against years greater than 1999. 



Part II 
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Part III 



a) 10 INPUT "A,B,C";A,B,C 

20lFBt2-4*A*C<0 THEN PRINT "ROOTS ARE 

IMAGINARY" : END 
30 PRINT "ROOTS ARE REAL" 



b) 10 INPUT " 
20 RESTORE 
30 FOR I = 
40 READ 
50 IF A$ 
60 NEXT I 
70 INPUT " 
80 IF Z$ < 
90 IF Z$ = 
100 PRINT 
110 DATA 
120 DATA 
13 DATA 
140 DATA 
150 DATA 
160 DATA 
170 DATA 
180 DATA 
190 DATA 
200 DATA 
210 DATA 
220 DATA 
230 DATA 
240 DATA 
250 DATA 



ENTER ARTIST'S NAME" ; N$ 

1 TO 15 
A$,R$ 

= N$ THEN PRINT A$,R$ 

DO YOU WANT TO CHECK ANOTHER (Y/N) " ; Z$ 
> "Y" AND Z$ < > "N" THEN 70 
"Y" THEN 10 
"THAT'S ALL FOR NOW. . BYE" 
BACH,B MINOR MASS 
BACK, ORGAN FAVORITES 
BACH, CONCERTOS 
MOZART, DON GIOVANNI 
MOZART, ORGAN MUSIC 
MOZART, PIANO CONCERTO #26 
VIVALDI, GREATEST HITS 
VERDI,FALSTAFF 
VERDI, OTHELO 
BEATLES, HEY JUDE 
BEATLES, R EVOLVER 
BEATLES, SGT .PEPPER 
BILLY JOEL, STRANGER 
BILLY JOEL, TURNSTILES 
BILLY JOEL, COLD SPRING HARBOR 
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Chapter 2 Supplementary Problem 



1 ) Use the five English words and their Spanish translations and 
place the ten words in data statements. Display a Spanish word to 
the user and ask for its English equivalent . Tell the user if the 
response given is CORRECT or INCORRECT. If the user is incorrect, 
also tell what the correct response should have been. Continue in 
this manner until all five translations have been attempted. Use 
READ.., DATA statements to accept your test values . 

100 DATA HOUSE, CASA 
110 DATA EGGS,HUEVOS 
120 DATA MILK,LECHE 
130 DATA FATHER, PADRE 
140 DATA WATER, AGUA 

RUN 

WHAT IS THE ENGLISH WORD FOR CASA7H0USE 
CORRECT! I ! 

WHAT IS THE ENGLISH WORD FOR HUEV0S7EGGS 
CORRECT 1 1 1 

WHAT IS THE ENGLISH WORD FOR LECHETFRY 

INCORRECT. . .LECHE MEANS MILK 

WHAT IS THE ENGLISH WORD FOR PADRE7WATER 

INCORRECT. . . PADRE MEANS FATHER 

WHAT IS THE ENGLISH WORD FOR AGUA7WATER 

CORRECT! 1 1 

2) Write a program which contains twelve adjectives within a data 
statement . When executed, the program will ask the user for his 
birth month. The output will be a goofy remark , as shown in the 
following example: 

RUN 

ENTER YOUR FIRST NAME? JOHN 
ENTER YOUR BIRTH MONTH? 11 

YOU ARE A VERY FRIENDLY PERSON, JOHN. 

The secret is to read the data list N times , where N is the month 
number. In the example above FRIENDLY was the 11th word in the 
data list. We will find a better method in chapter 6 . 



3) Write a program that will f ind all integers between 1 and 100, 
inclusively , that make both of the following inequalities true: 
XT3 + X > 50 & XT3 - X < 999 . 

RUN 

7 
8 
9 

10 
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Chapter 2 Supplementary ProblemsSolr»tions 

1) 10 FOR X = 1 TO 10 
20 READ A$,B$ 

30 PRINT "WHAT IS THE ENGLISH WORD FOR " ; A$ ; : INPUT X$ 

40 IF X$ = B$ THEN PRINT " CORRECT 1 1 ! " : GOTO 60 

50 IF X$ < > B$ THEN PRINT "INCORRECT... " ; A$ ; " MEANS " ;B$ 

60 NEXT X 

70 DATA CASA, HOUSE, HUEVOS, EGGS, LECHE, MILK, PADRE, FATHEK 

80 DATA AGUA, WATER 

2) 10 INPUT "ENTER YOUR NAME";N$ 

20 INPUT "ENTER YOUR BIRTH MONTH" ;N 
30 FOR I = 1 TO N 
40 READ X$ 
50 NEXT I 

60 PRINT "YOU'RE A VERY " ;X$; " PERSON, " ;N$; " ." 
70 DATA YOUNG , OLD , HAPPY , HEALTHY , AMBITIOUS , NICE 
80 DATA ATHLETI C , HUNGRY , COOL , NEAT , FRI ENDLY , SMART 



3) 10 FOR X = 1 TO 100 

20 IF (X t 2) + X > 50 AND (X t 3) - X < 999 THEN PRINT X 
30 NEXT X 
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Part I 
a) 



Chapter 2 Test 

Determine the exact output of each of the following programs; 



b) 



c) 



Part II 



10 


PRINT 2 + 


4*3 


d) 


10 


X = 2 






20 


PRINT 1 + 


2+3/2 




20 


y = 3 






30 


PRINT 20 - 


8/2 "3 




30 


Z = 4 






40 


PRINT (2 


2+2) / 2 + 2 




40 


FOR X = 


1 


TO 3 










50 


y = X 


+ 


Z 










60 


PRINT 


y? 


n II , 

1 


10 


FOR 1=1 


TO 4 




70 


NEXT X 






20 


READ X? 






80 


PRINT Z 






30 


IF X$ < 


"BA" THEN PRINT 


x$ 


90 


PRINT X 






40 


NEXT I 














50 


DATA " A" , 


"AB"," B","B" 


















e) 


10 


FOR X = 


2 


TO -2 










20 


PRINT 


X 


* X - 


10 


FOR J = -3 


TO 8 STEP 3 




30 


NEXT X 






20 


PRINT J; 


n n . 













30 NEXT J 

Circle the programming error(s) within each program given. 
Explain what must be done to correct the error . If no error 
exists, state so . 



a) 



10 INPUT X d) 
20 IF X " 2 > 16 THEN "X; IS 

A SOLUTION" 
30 GOTO 20 



10 REM PRINT "APPLE" D+1 

TIMES 
20 INPUT D 
30 FOR I = 1 TO D 
40 PRINT "APPLE" 
50 NEXT D 
60 GOTO 40 



b) 



c) 



10 REM PRINT A LIST FROM TO 9 
20 FOR K = 1 TO 10 
30 J = K - 1: PRINT J:K = J 
40 NEXT K 



10 READ P,Q 

20 IF P > AND Q > THEN 40 
30 IF P < AND Q < THEN 50 
40 PRINT "BOTH POSITIVE" 
50 PRINT "BOTH NEGATIVE" 
60 GOTO 10 

70 DATA -1,-3,2,4,5,-17 



Part III Write the following programs as 



e) 



10 REM MOUNTAIN STATE 

AREA CODE INDEX 
20 INPUT "AREA C0DE";A1 
30 FOR I = 1 TO 6 
40 READ A2,S$ 
50 IF Al = A2 THEN PRINT 

"STATE"; S$ 
60 NEXT I 

70 PRINT "CODE NOT ON 

FILE" 
80 GOTO 20 

90 DATA 4 06, MONTANA, 3 07, 
WYOMING, 303, COLORADO , 
20 8, IDAHO, 801, UTAH, 
7 02, NEVADA 
concisely as possible: 



a) Write a program that will ask for the last names of three 

different people and that will then print out the name that 
comes first alphabetically. A RUN should look like this : 

RUN 

FIRST NAME ? SMITH 

SECOND NAME ? JONES 

THIRD NAME ? LYNCH 

THE FIRST NAME IS JONES 2.23 



b) Write a program which will help young children learn numbers . 
The program should print the numbers 1 through 10 on the 
screen , one at a time , and then ask the child to input the 
correct English spelling of the word . Your program will 
contain a data statement which looks like the following : 

DATA ONE , TWO , THREE , FOUR ,FIVE,SIX,S EVEN , EIGHT , NT NE , TEN 

Give the child two chances to respond incorrectly , then give 
the correct answer . 

RUN 

ENTER THE WORD FOR 1?TW0 
INCORRECT 

ENTER THE WORD FOR 17THREE 

INCORRECT 

THE ANSWER IS ONE 

ENTER THE WORD FOR 2? TWO 

CORRECT (and so on through number 10) 
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Chapter 2 Test Solutions 



The credit for each problem is given in brackets [ ] . 



[ 5@ = 25 ] 



RUN 
14 
4.5 

19 

5 



d) 



RUN 
5 6 
4 



7 4 



e) 



b) 
c) 

Part II 
a) 

b) 
c) 

d) 
e) 



A 
AB 

B 

B 

RUN 
-3 3 6 

[ 5@ = 25 ] 

In line 20 the PRINT command was omitted after the THEN 
statement . Also the quotation mark preceding 'X; ' in line 20 
should follow the semicolon. Line 30 should read 30 "GOTO 
10" ; otherwise , we would have an endless loop. 

The last statement in line 30 (K = J) should be omitted. 
Leaving this statement in would also result in an endless 
loop. 

If a positive number were entered , "Both Positive" and "Both 
Negative" would be printed . To eliminate this problem, 
rewrite lines 20-50 by inserting 

20 IF P > AND Q > THEN PRINT "BOTH POSITIVE" 
30 IF P < AND Q < THEN PRINT "BOTH NEGATIVE" 
40 GOTO 10 

Since you can ' t enter a loop from the middle , line 60 should 
be changed to: 

60 PRINT "APPLE" 

Even if the equal condition is met in line 50 , the loop will 
continue to execute and print the "CODE NOT IN FILE" message . 
Line 50 must be made into a multiple statement line by adding 
" : GOTO 20" at the end of the line. This will exit you from 
the loop when the equal condition is met . Also , a RESTORE 
statement should be added at line 25 to allow the data to be 
read from the beginning each time the loop is entered . 
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Part III 



a) 10 X$ = "ZZZ" [ 25 ] 
20 FOR I = 1 TO 3 

30 READ A$ 

40 PRINT A$; " NAME";: INPUT Z$ 
50 IF Z$ < X$ THEN X$ = Z$ 
60 NEXT I 

70 PRINT "THE FIRST NAME IS ";X$ 
80 DATA FIRST, SECOND, THIRD 
90 END 

b) 10 FOR X = 1 TO 10 [ 25 ] 
20 READ A$ 

30 FOR I = 1 TO 2 

40 PRINT "WHAT IS THE WORD FOR" ;X; : INPUT B$ 
50 IF A$ = B$ THEN PRINT "CORRECT" : GOTO 90 
60 PRINT "INCORRECT" 
70 NEXT I 

80 PRINT "THE ANSWER IS ";A$ 
90 PRINT 
100 NEXT X 

110 DATA ONE , TWO , THREE , FOUR , F IVE , SIX , SEVEN , EIGHT , NINE , TEN 
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Lesson 3.1 



OBJECTIVES: a) to be able to generate sets of random numbers using 
the RND(O) statement 

b) to apply the INT statement to create sets of 
integer random numbers, to round off numbers and to test 
numbers for particular features 



ASSIGNMENT: 



Read pages 3.1 and 3.2 
Text problems 1,3,5,9,25,27 



Do review problems 1 
Homework problems 
2,4,12,16,20,22 



The RND statement can be compared to a variable box which contains 
a new value every time one looks into it. It is a 'bottomless' box 
from which random numbers between and 1 emerge. 



PRINT RND(O) 
.103117626 

PRINT RND(O) 
.0177148333 

PRINT RND(O) 
.779343355 



RND(O) 



. 103117626 
. 0177148333' 
. 779343355 

■ • 1 



In the same sense the value in box X may be printed or used in a 
mathematical expression, so too may the RND(O) box. The only thing you 
cannot do is assign a value to the RND(O) box; this can only be done 
by the computer. 

When RND is introduced by demonstrating program 3.1, have the 
students note that the numbers produced are not very useful for 
dealing with simulations of real situations: values in a deck of card 
or on a die do not range between and 1. After students study the 
output of program 3.1, they may see that a more useful set of numbers, 
namely 0,1,2,3,. ..,9 may be produced if a method can be found to move 
the decimal point one place to the right and then drop the fractional 
part. But be careful on phraseology here: "dropping the fractional 
part" is not always the consequence of the INT statement, as will be 
discussed below. 
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The value of the argument (X) of the RND(X) statement may be any 
integer. The value of the argument is irrelevent. It is rather the 
sign of the argument ( -,0,+ ) which decides the outcome of the RND 
statement . 



It should be noted that a program designed to print a list of 
random numbers using a positive integer as an argument will produce 
the same set each time the program is first run after the computer is 
turned on. This creates a serious problem when running game programs 
or any program where the results should not be predictable. For 
example, typing in the following program again and running it will 
yield identical numbers: 

10 FOR I = 1 TO 4 
20 N = RND (1) 
3 PRINT N 
40 NEXT I 
RUN 

.973136996 

.103117626 

.0277148333 

.779343355 

(Turn off the computer and re-enter the program and run it.) 

RUN 
.973136996 
.103117626 
.0277148333 
.779343355 

To guarantee a new set of random numbers each time a program is 
run, the argument (X) should be set to zero. A new set of random 
numbers will be produced for subsequent random statements each time 
the computer is turned on. Therefore, an argument (0) should be used 
for most situations in which random numbers are used. For example: 

10 FOR I = 1 TO 4 
20 N = RND (0) 
3 PRINT N 
40 NEXT I 
RUN 

.365698131 

.830384226 

.947350239 

.131733636 

(Turn off the computer and re-enter the program and run it.) 

RUN 
.968498391 
.584208112 
.760921408 
.183321568 
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However, it is sometimes useful to have a set of "random" numbers 
which is predictable. One such instance would be in the debugging of 
a program. If you are attempting to fix an error in a program, using 
the same data on each RUN is enormously helpful. This is accomplished 
by the use of a negative argument in the RND statement. Although the 
same results can come about from using a positive argument and turning 
the computer off and on, the negative argument allows for predictable 
outcome without re-entering the program. For example: 

10 X = RND(-l) 

20 FOR I = 1 TO 5 

30 PRINT RND(X) 

40 NEXT I 

RUN 
.328780872 
.978964086 
.895758909 
.161031701 
.0224078245 

RUN 
.328780872 
.978964086 
.895758909 
.161031701 
.0224078245 

Line 10 produces the initial "seed" for the RND statement in line 30. 
It should be noted that a negative argument only produces an initial 
"seed" for subsequent RND statements to act upon. Also , each negative 
number produces a unique "seed". For example: 



10 FOR X = 


-10 TO -1 


20 PRINT 


X,RND(X) 


30 NEXT X 




RUN 




- 1 


3. 73729563E 08 


•-9 


3. 364766AE -0c3 


-s 


2. 99223757E-0S 


/ 


•5. 2273208E--0S 


••-6 


4. 48226274E~0a 


i:;.- 
— ' ■_ J 


3., 7372046E3E-0S 


-^1 


2. 99214662E-0S 




4, 48217179E 03 




2. 99205567E-0S 


- 1 


2, 99196472E-0S 
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students maybe somewhat perplexed that 
PRINT INT(-3.1) 

does not produce the output -3. To show why, use a number line 
analogy. First show several examples in the positive range, then 
discuss -3.1. 

< — f — 1 \ — — i£i:ii_4__.H — ^ 

-S ~V -3 -X -I a I JL 3^/6" ^ 

The INT statement always generates the integer found to the left of a 
non-integer argument on a traditional number 1 ine. 

The number line is also useful for discussions concerning the 
process of rounding . Compare: 

— \ '^^■^) 
^ — I I i 1 I I I i J-i-J-J^ — ^ f-Lj. I I I J I 4 I ' 1 ' ' ' ' ' \ 

^ .5- /^-^wr-^ 



While developing the formula for generation of a set of integers 
between a and b, inclusive, allow the students to see where •+1' in 

B - A + 1 

comes from. At a glance many students will say that there are 10 
elements in the set 

15,16,17, . . ,25 

but when the set is written out as 

15,16,17,18,19,20,21,22,2 3,24,25 

it is easy to see that the set contains one more than the difference 
between the end points. 



The ability to determine whether a number is even or odd is a 
useful tool. You may prefer to let students develop the strategy 
needed on their own. If you decide instead to discuss this 
appl icat ion in class , the following program provides a useful summary: 

10 INPUT "ENTER ANY INTEGER" ;N 

20 IF N <> INT (N) THEN PRINT "NOT AN INTEGER" : GOTO 10 

30 IF N / 2 = INT (N / 2) THEN PRINT "EVEN" 

40 IF N / 3 = INT (N / 3) THEN PRINT "MULTIPLE OF 3 " 

Using a strategy similar to that in lines 30 and 40 , your students 

should now be able to write a program to test a number to determine 

whether it is prime. A prime number is a number which is evenly 

divisible only by itself and 1. The following program is the one your 
students should produce: 
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10 INPUT "INTEGER > 2 PLEASE" ;N 

20 FOR X = 2 TO N - 1 
30 IF N / X = INT (N / X) THEN 70 

40 NEXT X 

50 PRINT "THAT INTEGER IS PRIME. " 

60 END 

70 PRINT " THAT INTEGER IS NOT PRIME." 
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Worksheet 3.1 



Part I For each range specified below write a single statement which 
will generate one random integer within the range: 

a) and 100, inclusive 

b) 1 and ICQ, inclusive 

c) and 1000, inclusive 

d) 1 and 2, inclusive 

e) 17 and 24, inclusive 

f) -3 and 3, inclusive 

g) and -100, inclusive 

Part II Determine the output of each of the following programs: 

a) 10 FOR I = 1 TO 6 
20 READ X 

30 PRINT INT (X) 
40 NEXT I 

50 DATA 2,2.001,1.999,-2,-2.001,-2.999 

b) 10 FOR I = 1 TO 10 
20 READ X 

30 PRINT INT (X + .5) 
4 NEXT I 

50 DATA .001, .499, 5. 00, 5. 01, 5. 99, -.001, -.499, -5. 00, 
-5.01,-5.99 

Part III Write the following program as concisely as possible: 

a) Write a program to simulate a pair of dice and have the 

computer print the following result. Any other input should 
terminate the program. 

RUN 
8 

HIT RETURN TO ROLL AGAIN? 
11 

HIT RETURN TO ROLL AGAIN? 
9 

HIT RETURN TO ROLL AGAIN? 
7 

HIT RETURN TO ROLL AGAIN? 
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Worksheet 3.1 Solutions 



Part I 






a) 


PRINT 


INT(RND(0)*101) 


b) 


PRINT 


INT(RND(0) *100+1) 


c) 


PRINT 


INT(RND(0) *1001) 


d) 


PRINT 


INT(RND(0) *2+l) 


e) 


PRINT 


INT(RND(0) *8+17) 


f) 


PRINT 


INT(RND(0)*7-3) 


g) 


PRINT 


INT(RND (0) *101-100) or PRINT INT(RND ( 0) * (-101) ) 


Part II 






a) 


2 






2 






1 






O 






"J 






-3 




b) 
















5 






5 






6 




















-5 






-5 






-6 





Part III 



a) 10 PRINT INT ( RND (0) * 6 + 1) + INT ( RND (0) * 6 + 1) 
20 INPUT "HIT RETURN TO ROLL AGAIN" ;D$ 
30 IF D$ = THEN 10 
40 END 
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Lesson 3.2 



OBJECTIVES: a) to comprehend the technique of summation 

b) to apply the summation technique to counting and 
accumulating applications 



ASSIGNMENT: Read SUMMATION section Do review problem 3 
beginning on page 3.3 

Text problems 7,15,17,19 Homework problems 6,10,18,26 



To introduce the idea of summation, first demonstrate a simple 
counter . A counter will be a variable to which we add 1 repetitively, 
as is done in line 10 of the following program: 

10 S = S + 1 
20 PRINT S 
30 GOTO 10 

Line 10 must be explained carefully. The box analogy will prove to be 
very helpful here, but begin by considering a seemingly unrelated 
example: 

10 Y = 5 

20 X = Y + 1 

30 PRINT X 

At line 20 , Y + 1 must be evaluated : the computer finds the current 
value of Y and adds 1 to it . The result is then assigned to the 
variable X. 

Now, in the case at hand, we note first that S is initially zero: 

S 





When line 20 is executed , S + 1 must be evaluated: the computer takes 
the current value of S, , and adds 1 to it . The result , 1 , is now 
assigned to the variable S. { In practice erase and insert 1 in the 
box . ) 

S 



1 



The present in S is now erased and replaced by 1 . Repeat the 
process two or three times for emphasis . The operation can be further 
stressed by drawing 

S = 
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to indicate that the right side is evaluated using the 'old' value of 
S, then /""s/' 

S =( S + ij 

to show that the result is assigned 'back to' the variable S. 

In game applications summation is frequently used to keep score. 

The simple counter is just one of the several techniques which may 
be grouped under the heading 'summation'. Your students should now be 
able to predict the output of 

10 N = 4 

20 FOR X = 1 TO 4 
30 S = S + N 
40 PRINT S 
50 NE3(T X 
RUN 

4 

8 

12 
16 

The value of N in line 10 selects the 'step size' for counting and so 
this program might be called a 'count by N' counter. 

A still more useful form of summation can be referred to as an 
'accumulator'. Consider the following program: 

10 FOR I = 1 TO 5 

20 INPUT N 

30 S = S + N 

40 NEXT I 

50 PRINT "SUM=";S 

RUN 

? 4 

? 2 

? 6 

? 9 

? 1 

SUM= 22 

This program allows the five values entered at line 20 to be 
accumulated or summed in variable box S. In this sense, S may be 
called an accumulator. The contents of the accumulator (the sum of 
the 5 numbers) are ultimately printed out at line 50. 



Progressions provide an interesting application of the summation 
technique. Bank interest and population growth problems are of this 
type. Do not venture into such problems until your students are 
comfortable with summation . 



3.10 



In compound interest problems the value to be added to the 
accumulator depends on the most recent value of the accumulator. The 
interest to be added to the balance (at the end of each compounding 
period) is a fixed percentage of the balance. 

For example, if $1,000 is invested in a ten year bond which earns 
8% compound interest each year, the following program will produce the 
yield at the end of 10 years. 

10 S = 1000 

20 FOR X = 1 TO 10 

30 S = S + .08 * S 

40 NEXT X 

50 PRINT S 



Note how line 30 takes the old value of S plus 8% of S and adds them 
to determine the new value of S. Repeating this process 10 times 
yields the value of the bond . 

Draw a chessboard ( 8x8 squares) . On the first square, draw an lOU 
for one billionth of a dollar ( .000000001 dollar) . On the second 
square place twice as much ( .000000002 dollar) , and on the third place 
twice as much again ( . 000000004 dollar) . Ask the students which they 
would prefer - the value of the chessboard once filled in this manner 
or one hundred dollars . The solution is found from: 

10 N = IE - 9 

20 FOR I = 1 TO 64 
30 S = S + N 
40 N = N * 2 

50 NEXT I 

60 PRINT "ACCUMULATED AMOUNT IS";S 

Note how line 40 doubles the amount which will be added on the 
subsequent time around the loop. When the program is run , the result 
is found to be 

RUN 

ACCUMULATED AMOUNT IS 1 . 84467441E+10 



So the chessboard is worth over 18 million dollars 1 
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Worksheet 3.2 



Part I Predict the output of each of the following programs: 
a) 



c) 



d) 



e) 



f) 



10 


A = 5 




20 


FOR X = 


1 TO 3 


30 


PRINT 


"A EQUALS"; A 


40 


A = A 


+ 5 


c n 
bU 


JNIKX 1 A 




10 


X = 1 




20 


FOR Y = 


1 TO 4 


30 


PRINT 


X 


40 


X = X 


+ 1 


50 


NEXT Y 




1 u 


X = u 




20 


Y = 3 




30 


X = X + 


1 


40 


IF X > Y 


• THEN 70 


50 


PRINT X; 


"IS NOT GREATER ' 


60 


GOTO 30 




70 


PRINT X; 


IS GREATER THAN 


10 


X = 




20 


FOR I = 


1 TO 5 


30 


X = X 


+ I 


40 


NEXT I 




50 


PRINT X 




10 


X = 5 




20 


PRINT X 




30 


IF X = 12 THEN 70 


40 


IF X < = 


: 10 THEN 60 


50 


X = X - 


9: GOTO 20 


60 


X = X + 


5: GOTO 20 


70 


PRINT "YEAH" 


10 


FOR I = 


1 TO 3 


20 


READ N 




30 


S = S 


+ 2 * M + N 


40 


NEXT I 




50 


PRINT S 




60 


DATA 3,- 


2,1,5,-6,2 



Part I I Write each of the following programs as concisely as 
possible: 

a) Write a program to count the number of occurrences of 7 in 
100 rolls of a pair of dice . 

RUN 

7 OCCURRED 22 TIMES 

b) I f your father gave you 1 penny on the first day, 2 on the 
second , and 4 on the third , and so on , doubling the money 
given you per day, how much money would you have at the end 
of 31 days? 
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Worksheet 3.2 Solutions 



Part 1 

a) A EQUALS 5 
A EQUALS 10 
A EQUALS 15 

b) 1 
2 
3 
4 

c) 1 IS NOT GREATER THAN 3 

2 IS NOT GREATER THAN 3 

3 IS NOT GREATER THAN 3 

4 IS GREATER THAN 3 

d) 15 

e) 5 
10 
15 
6 

11 

2 

7 

12 

YEAH 

f ) The student should test each value of I separately: 
When 1=1, 2*M+N = -1, so S=-l 

When 1=2, 2*M+N = 11, so S=10 

When 1=3, 2*M+N = -2, so S=8 

Consequently, the output of the program is: 

8 

Part II 

a) 10 FOR I = 1 TO 100 

2 IF ( IJSJT ( RND (0) * 6 + 1) + INT ( RND (0) * 6 + 

1) ) = 7 THEN N = N + 1 
30 NEXT I 

40 PRINT "7 OCCURRED" ?N; "TIMES" 

b) 10 FOR I = i TO 31 

20 J - J + 2 t (I - 1) 
30 NEXT I 

40 PRINT J / 100 I "DOLLARS" 
RUN 

21474836,5 DOLLARS 
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Lesson 3.3 



OBJECTIVES: a) to learn the limitations in precision and dynamic 
range associated with the computer 

b) to encounter a situation where 'rounding error' is 
a consideration 

c) to learn the effects of TIME and POS(O) 

d) to create both arbitrary and definite length time 
delays during program execution 

e) to contrast the use of INPUT and GET 



ASSIGNMENT: Read pages 3.4 through 3.6 

Text problems 21,23 Homework problem 8 



The material in this lesson presents a detailed analysis of 
rounding errors and is meant primarily for students who may ultimately 
perform mathematics and science applications on the computer. For 
younger students or those who are not mathematically inclined, this 
lesson might be skipped. 

The worksheet for Lesson 3.3 is designed for use as presented 
below. The students should actually run the programs themselves as 
the lesson proceeds to experience the problems created by rounding 
errors , 

Program 3,5 in the text demonstrates that the summation technique 
may provide a slightly erroneous result when it performs a great 
number of operations on a repeating decimal. As discussed in the 
text, all numbers are repeating decimals on the computer except those 
in the set: 

1,2,4,8,16,32,64, . . , 

The problem is more extensive than is first evident. The computer 
prints no more than nine digits, independent of the position of the 
decimal point within those digits. These digits are called the 
mantissa. Where needed, the mantissa is modified by an exponent E. 
There is at least one additional mantissa digit retained but not 
printed. This can be illustrated using Worksheet 3.3, problem (a). 
The output begins as follows? 



3,15 



I TIE Ft AT I GN 



RESULT 



1. 



1 . 0000000 1 



1 , 00000001 

1 . (J)0000001 



4 



1 . 00000001 
1 . 0000000 1 



I. 



1 , 02)000002 

1 . 0!iS0(;i!2!002 
1 , !:;:S0000002 
1 ,. 00!30i{f002 

1 . 00000002 



10 



T"(D END,, M"<ET(JRN' TO CONTIUNUE 



The variable X initially contains the value 1.00000001. At each 
iteration the value .000000001 is added to X . Even though iterations 
1 through 5 seem to indicate that no change is occurring in the summed 
value , the hidden digit ( s) must be changing , and this change is 
revealed at iteration 6. If the calculations are done by hand , it 
becomes apparent that the PRINT statement rounds numbers to 9 digits 
(e.g. iterations 1 through 5 are rounded down; iterations 6 through 9 
are rounded up; iterations 11-15 are rounded down, etc . ) 

The hidden digits can cause a further problem exemplified by 
Worksheet 3.3, problem (b) . The output will be as follows : 



Rounding error has accumulated in the hidden digit (s) so that although 
the value B is printed as 11 , B really contains a number slightly 
different from 11 . Adding the following lines to Worksheet 3.3, 
problem (b) will round off the hidden dig it ( s) . 



60 B = INT (B * 1E8 + .5) / 1E8 

70 PRINT B 

80 IF B = 11 THEN PRINT "NOW RE 
SULT IS 11" 

RUN 
11 

RESULT IS NOT 11 
11 

NOW RESULT IS 11 



Line 60 rounds off the value of B to 7 decimal places . The ' 1E8 ' may 
have to be altered for other problems , depending on the nature of the 
problem and the severity of the rounding error . 



RUN 
11 

RESULT IS NOT 11 
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From algebra. 




but the presence of rounding error is evident again in Worksheet 3,3 r 
Problem (c) . Part of the output follows. SQR is introduced later in 
the text, but it is not difficult for students to handle here: 



:SQFC (X) ) t2 MATCH? 



1 *** MATCH *** 

2 *** MATCH *!!<* 

3 MO MATCH 

MATCH 



A 



5 5.00000001 MO MATCH 

6 6.0 & 1 H MA T C H 

7 7.0 001 N (D MA 1" C h-l 

B a ttt MATCH 't** 

9 9.00000001 ML) MATCH 

10 10 NO MATCI-^ 

I- F( E S S IE T E M D , ' R E T U R N ' T C M T 1 N LJ IE 



Notice that the algebraic fact {\/x) = X is only indicated when X is 
an integral power of 2. Rounding error exists in all other cases. 
The rounding error is typically sraall enough to be ignored by the 
PRINT statement but is always detected by the conditional statement 
(IF) . 

One final note is in order. It was noted earlier that the 
computer never pr ints more than nine digits (excluding the exponent) . 
We can say that the mantissa contains nine digits of precision. Of 
course, this does not mean that 999999999 is the largest number 
recognized by the computer . Because the mantissa is , in fact , 
modified by an exponent, numbers considerably larger (or smaller) can 
be used . Worksheet 3.3, Problem (d) illustrates that there is an 
ultimate limit to the size of this exponent. Running the program 
produces the following output: 
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RUN 
1 

3. 00 

10000 

1000000 

1 00000000 

:l EH- 10 
1 £+12 
1 EM- 1 4 
1 E-t-16 
IE-KI.8 
lE + 20 
lEM-22 
1 E+24 
lE-f-26 
1EH-2S 
IE -1-30 
lE-t-32 
IE -I- 3 4 
IE -I- 3 6 
1E-K3S 
'POyERFLOW 



10 

1000 
100000 

1 0000000 

lE + 09 

lE-i-1 1 
1 E+13 
IE-KI.5 
1 E + 1 7 
lE+19 
IE -1-21 
lE-i-23 
lE+25 
lE + 27 
lE-i-29 
1 E + 31 
1E-K33 
IE -I- 3 5 
IE -1-3 7 



Similarly, the lower limit is found by changing the operation in lines 
30 and 40 to division . One difference in the output is that when the 
exponent becomes too small , no error results . Instead , is assigned 
to the variable in question. 

Using the results of the above program, we can say that the 
' dynamic range ' of the computer is about lOt (-38) to lOf ( 38) , 



Many times you may , find that the output you so carefully designed 
is "scrolled up" out of sight by subsequent PRINT or INPUT statements . 
A "delay" loop can postpone the inevitable from happening . A delay 
loop can take on two forms on the Commodore 64 . The simplest form is 
that of a FOR. . . NEXT loop v/hich uses time. In other words , no 
operations are performed inside the loop. Such a loop would take the 
form: 

100 FOR X = 1 TO 600: NEXT X 

The values of the loop variable are totally arbitrary and are only 
dependent upon the programmer and the amount of time he/she wishes to 
stall processing . 

The second type of delay loop can be considered a definite length 
delay loop. It makes use of the built-in TIME var iable . The TIME 
variable is set to the number of "jiffies" elapsed since the most 
recent power-up . As explained in the text , a "jiffy" is equal to 1/6 
of a second . Using this fact, we can construct the following delay 
loop: 
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100 REM 10 SECOND DELAY LOOP 
110 T = TIME 

120 IF INT( (TIME - T) / 60) <> 10 THEN 120 

130 

140 

150 



Worksheet 3.3 



Part I Examine the output of each of the following programs by- 
typing them into the computer and running them: 

a) 10 X = 1.00000001 
20 T = .000000001 

30 PRINT "ITERATION RESULT" 

40 PRINT " 

50 X = X + T 

60 I = I + 1 

70 PRINT I; TAB ( 12) ;X 

80 IF I / 20 = INT (I / 20) THEN 100 

90 GOTO 20 

100 PRINT : PRINT "PRESS 'E' TO END, 'RETURN' TO CONTINUE"; 
110 GET Z$: IF Z$ = "" THEN 110 
120 IF Z$="E" THEN END 
130 GOTO 30 

b) 10 FOR X = 1 TO 33 
20 B = B + 1 / 3 
30 NEXT X 

40 PRINT B 

50 IF B < > 11 THEN PRINT "RESULT IS NOT 11" 

c) 10 PRINT " X (SQR(X) ) T2 MATCH?" 

20 PRINT — " 

30 X = X + 1 

40 Y = SQR (X) 

50 Z = Y T 2 

60 PRINT X; TAB ( 8) ; Z; 

70 M$ = "NO MATCH" 

80 IF Z = X THEN M$ = "** MATCH **" 
90 PRINT TAB (23) ;M$ 

100 IF X / 10 = INT (X / 10) THEN 120 
110 GOTO 20 

120 PRINT : PRINT "PRESS 'E' TO END, 'RETURN' TO CONTINUE" ; 

130 GET Z$: IF Z$ = "" THEN 130 

140 IF Z$ <> "E" THEN PRINT : GOTO 10 

150 END 

d) 10 X = .1 

20 FOR I = 1 TO 20 
30 X = X * 10 
40 PRINT X, 
5 X = X * 10 
60 PRINT X 

70 NEXT I 
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Worksheet 3.3 Solutions 



NOTE: The solutions for Worksheet 3 . 3 have been supplied as an 
integral portion of this lesson ' s text . 
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Chapter 3 Supplementary Problems 



1) Write a program which will print out the pattern: 
* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

* 

Use no more than two PRINT statements. 

2) Write a program which will ask the user to input two numbers and 
will then report only the decimal part of their ratio. (In other 
words, divide the second number into the first and print out the 
remainder . ) 

RUN 

NUMERATOR? 3 
DENOMINATOR? 2 
REMAINDER IS .5 

3) Many fantasy games involve rolling dice with various numbers of 
sides. For example, a 4-sided die will have faces numbered 1 
through 4, while an 8-sided will have faces numbered 1 through 8, 
and so on. 

Write a program which will ask the user 

HOW MANY SIDES? 
HOW MANY THROWS? 

The program should roll the die specified as many times as 
indicated and then print the sum of the individual throws. 

4) Write a program which will ask the user to enter the year (4 
digits) and tell the user whether it is a leap year. Leap years 
occur every 4 years, the most recent in 1984. 

5) A savings account is opened in 1955 with $1.00. 5% interest is 
added each year . Write a program to print a table showing the 
year in one column and the account balance in the second column 
from 1955 to the present year. 
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6) Your father gives you a penny as a gift on your first birthday. 
He promises to double the amount of the gift each year until your 
21st birthd ay. Have the computer print a table showing the amount 
you receive on each birthday and the total you will have received 
as of each year . 

7) A well-known ' infinite series ' is 

1 1 3> 3- 

— -f — 4-~-j- — -f, , , 

2 4 8 16 

Write a program to add repeatedly the next term in the series and 
to print the sum thus far after each addition . You r program 
should be an infinite loop, but it will be clear that after a 
while the sum of the series is 1. 

8) Write a program which will find integer solutions of the equation 

XT2 = 5*X 

for -10 <= X <= 10 . Run the program and discuss the output . Is 
anything different from what you might expect? 
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Chapter 3 Supplementary Problem Solutions 

1) 10 FOR I = 1 TO 6 
20 PRINT TAB( I) ; 
30 NEXT I 

40 FOR I = 5 TO 1 STEP -1 
50 PRINT TAB( I) ; 
60 NEXT I 

2) 10 INPUT "NUMERATOR" ;N 
20 INPUT "DENOMINATOR" ;D 

30 PRINT "REMAINDER IS";N / D - INT (N / D) 

3) 10 INPUT "HOW MANY SIDES" ;S 
20 INPUT "HOW MANY THROWS" ;T 
30 N = 

40 FOR I = 1 TO T 

50 N = N + INT (RND (1) * S + 1) 
60 NEXT I 

70 PRINT "THE SUM IS";N 

4) 10 INPUT "YEAR";Y 

20 IF Y / 4 = INT (Y / 4) THEN PRINT "IT IS A LEAP YEAR" : END 
30 PRINT "IT IS NOT A LEAP YEAR" 

5) 10 M = 1 

20 INPUT "CURRENT YEAR";N 

30 PRINT "YEAR" ," BALANCE" 

40 FOR Y = 1955 TO N 
50 M = M * 1.05 
60 PRINT Y,M 

70 NEXT Y 

6) 10 PRINT "RECEIVED" TOTAL" 
20 FOR I = 1 TO 21 

30 S = S + 2 T (I - 1) 
40 PRINT 2 T (I - 1) ,S 
50 NEXT I 

7) 10 X = .5 
20 Y = .5 

30 Y = Y / 2 
40 X = X + Y 
50 PRINT X 
60 GOTO 30 

8) 10 FOR I = -10 TO 10 

20 IF (I T 2) = (5 * I) THEN PRINT I; "IS A SOLUTION" 
30 NEXT I 
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Chapter 3 Test 

Part I Determine the exact output of each of the following programs; 



a; 


1 u 


FOR 1=1 


TO 3 




zU 


READ X 






30 


PRINT INT (X) 




40 


NEXT I 








DATA -1.1 


..1.1.5.101 




1 n 


FOR J = 1 


TO 5 






S = S + 


J 




30 


NEXT J 






40 


PRINT S 




^1 




X = 1 








S = S + X 






30 


X = X * 2 






40 


IF S < 12 


THEN 20 




50 


PRINT X,S 




d) 


10 


PRINT "12345" 




20 


PRINT POS(O) 




30 


PRINT "ABCDE"; 




40 


PRINT POS(O) 



Part II Circle the programming error(s) within each program. Explain 
what must be done to correct the error. If no error exists, 
state so. 

a) 10 REM COUNT BY 10 ' S STARTING WITH 10 
20 S = 1 

30 S = S * 10 

40 PRINT S 

50 GOTO 30 

b) 10 PRINT "TYPE 'NO' TO END PROGRAM"; 
20 GET X$ 

30 IF X$ = "NO" THEN END 

40 GOTO 10 

C) 10 REM PRINT SUM OF 1000 RANDOM NUMBERS 

20 REM BETWEEN -10 AND 10, INCLUSIVE 

30 FOR I = 1 TO 1000 

40 S = S + INT ( RND (1) * 20) - 10) 

50 NEXT I 

d) 10 REM DETERMINE "ODD" OR "EVEN" 

20 INPUT X 

30 IF X / 2 < > INT (X) THEN 50 

40 PRINT "EVEN": GOTO 20 

50 PRINT "ODD": GOTO 20 
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Part III Wr ite each of the following programs as concisely as 
possible; 

a) Write a program to find the sum of the first 100 terms in the 
series 

12 3 
IX + 2X + 3X + 4X + 

WHERE X = .4 

b) Write a program to s imulate the rolling of two dice that will 
produce an output similar to the RUN shown below. If "doubles" 
are rolled (both die give the same value)^ then the player gets a 
kewpie doll ; otherwise , nothing is won and the program ends , 

RUN 

DIE 1 IS A 5 
DIE 2 IS A 5 

YOU'VE WON A KEWPIE DOLLl 1 

DIE 1 IS A 3 
DIE 2 IS A 2 

YOU'VE WON NOTHINGl 1 
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chapter 3 Test Solutions 

The credit for each problem is given in brackets [ ] . 
Part I [ 6@ = 24 ] 

a) RUN c) RUN 

"2 16 15 


1 

b) RUN d) RUN 

15 12345 



ABCDE 5 

Part II [ 6@ = 24 ] 

a) In order to count by 10 ' s , change line 20 to S=0 and line 30 
to S = E + 10. 

b) In line 20 the INPUT command should be used instead of the 
GET command. Remember the GET command only accepts a single 
character string variable. 

c) In line 40 the statement ( RND { ) * 20) should be ( RND ( ) * 
21) . 

d) In line 30 the statement INT (X) should be INT (X/2) . 
Part III 

a) 10 FOR I = 1 TO 1000 [ 22 ] 
20 X=X+(I*.4t(I-l)) 

30 NEXT I 

40 PRINT X 

b) 10 Dl = INT(RNT)(0) * 6) + 1 [ 30 ] 
20 D2 = INT(RNT»(0) * 6) + 1 

30 PRINT "DIE 1 IS A";Dl 

40 PRINT "DIE 2 IS A" ;D2: PRINT 

50 IF Dl < > D2 THEN 80 

60 PRINT "YOU'VE WON A KEWPIE DOLL" : PRINT 

70 GOTO 10 

80 PRINT "YOU'VE WON NOTHING" 

90 END 
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Lesson 4.1 



OBJECTIVE: a) to comprehend the order of statement execution for 
nested loop prograras 



ASSIGNMENT: 



Read pages 4.1 and 4.2 
Text problems 1,7a, 7b, 9, 13 



Do review problem 1 
Homework problems 2,8 



In Chapter 2 the concept of entering and exiting loops was 
introduced. Again, proper indenting with FOR... NEXT loops should 
always be followed. Consider the following nested loop program: 



10 REM NESTED LOOP DEMO 

20 FOR I = 1 TO 3 

PRINT "I IS NOW"; I 
FOR J = 1 TO 3 

PRINT " J IS NOW" 7 J 
NEXT J 
70 NEXT I 

80 PRINT "BOTH LOOPS COMPLETED" 



30 
40 
50 
60 



Anytime the 'J' loop is entered, you cannot exit the loop until it is 

completed. So, line 70 will not be executed until the variable J has 

taken on the values 1,2 and then 3, After line 70 has executed for 

the first time (I takes on the value 2), line 40 is executed again. 

We have entered the 'J' loop a second time. The 'J* loops start over, 

Transparency Master 4.1 may be of assistance during your 
discussion. The output is as follows: 

RUN 

I IS NOW 1 

J IS NOW 1 

J IS NOW 2 

J IS NOW 3 
I IS NOW 2 

J IS NOW 1 

J IS NOW 2 

J IS NOW 3 
I IS NOW 3 

J IS NOW 1 

J IS NOW 2 

J IS NOW 3 
BOTH LOOPS COMPLETED 

Try inserting inconspicuous loops at line 35 and 55 so that the 
variable value changes can be discussed as they occur. 

35 FOR A = 1 TO 2000 : NEXT A 
55 FOR B = 1 TO 1000 : NEXT B 
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Be sure to point out that whereas single loops could be used to 
solve equations with one unknown by trial and error , nested loops can 
be used to solve equations with multiple unknowns . Program 4 . 2 
illustrates this technique . 
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Transparency 4.1 



10 REM NESTED LOOP DEMO 




80 PRINT "BOTH LOOPS COMPLETED" 
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Worksheet 4.1 



Part I 
a) 



b) 



c) 



Determine the exact output of each of the following programs ; 

10 FOR I = 1 TO 3 g) 10 FOR P = 1 TO 3 

20 
30 
40 



10 
20 
30 
40 
50 



FOR J = 2 TO 4 

PRINT J 
NEXT J 



50 NEXT I 



FOR 1=1 
FOR J = 
PRINT 
NEXT J 

NEXT I 



TO 3 
2 TO 4 
I 



10 FOR A = 1 TO 3 



20 
30 
40 



FOR Q = 1 TO 3 

PRINT TAB(P) ;Q 
NEXT Q 



h) 



i) 



20 FOR B = 3 TO 1 STEP -1 

30 PRINT A + B 

40 NEXT B 

50 NEXT A 



50 NEXT P 

10 FOR I = 2 TO 4 
20 FOR J = TO 1 
30 PRINT J; I 

40 NEXT J 
50 NEXT I 

10 FOR X = 3 TO 12 STEP 3 
20 FOR Y = 12 TO 3 STEP -3 
30 IF X > Y THEN PRINT X 

40 NEXT Y 
50 NEXT X 



d) 



e) 



f) 



10 FOR F = -3 TO 4 j) 

20 FOR K = 6 TO 8 

30 S = S + 1 

40 NEXT K 

50 NEXT F 

60 PRINT S 



10 FOR M = 1 TO 2 

20 FOR N = 1 TO 2 k) 

30 PRINT N * M 

40 NEXT M 

50 NEXT N 



10 FOR P = 1 TO 3 

20 FOR Q = 1 TO 3 

3 PRINT TAB ( Q) ; P 

40 NEXT Q 1) 

50 NEXT P 



20 
30 
40 



1 TO 1 

1 TO -1 STEP -1 
I * J * K 



10 K = - 1 
20 FOR I = - 
30 FOR J = 
40 PRINT 
50 NEXT J 
60 K = K + 
70 NEXT I 



10 FOR I = 1 TO 2 

20 FOR J = 1 TO 2 

30 FOR K = 1 TO 2 

40 PRINT I;"/"; J;"/";K 

50 NEXT K 

60 NEXT J 

70 NEXT I 

10 FOR I = 1 TO 3 



PRINT J 
FOR J = 
NEXT J 



2 TO 4 



50 NEXT I 
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Worksheet 4.1 Solutions 



Part I 



a) 



RUN 
2 
3 
4 
2 
3 
4 
2 
3 
4 



b) 



RUN 
1 
1 
1 
2 
2 
2 
3 
3 
3 



c) 



RUN 
4 
3 
2 
5 
4 
3 
6 
5 
4 



d) 



RUN 
24 



e) RUN 
1 
2 



?NEXT WITHOUT FOR ERROR IN 50 



f) RUN g) RUN h) RUN i) RUN 



1 1 2 6 

1 2 1 2 9 

1 3 3 9 

2 1 13 12 

2 2 4 12 

2 3 14 12 

3 1 

3 2 

3 3 



j) RUN k) RUN 1) RUN 



1 1/1/1 

1/1/2 5 

-1 1/2/1 5 

1/2/2 

2/1/1 

2/1/2 

1 2/2/1 
2/2/2 

-1 



Notes : 

d) Line 30 is a simple counter . The F loop will execute 8 
times , and for each F iteration the K loop must execute 
3 times. So, 8 * 3 = 24. 

e) The actual output is rather unexpected, but students 
should notice that the loops are 'crossed'. 

1) Two points are of interest here. First, like any other 
numeric variable, a loop variable is set to zero at the 
beginning of program execution . Second , the computer 
increments the loop variable, then checks to see if its 
value is beyond the loop variable limit. 
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Lesson 4,2 



OBJECTIVES; a) to understand why subscripted variables are 
important 

b) to use subscripted variables in programming 
situations 



ASSIGNMENT: Read pages 4.3 through 4.9 Do review problems 2-4 
Text problems 3 ,7c, 11 ,19,23 Homework problems 

10,12,20,22 



The text discusses the need for subscripted variables by showing 
the difficulty of avoiding repetitions in a list of random numbers. 
The text is clear and thorough on this matter so an alternate approach 
is presented here: 

Suppose nine art experts are attending an auction. A priceless 
painting is to be sold by a secret bid, and the names and the bids are 
to be stored in a computer until the bidding is completed. The novice 
may write a program such as the following: 



10 INPUT "ENTER NAME";Nl$ 

12 INPUT "ENTER BID";Bl 

15 FOR J = 1 TO 25: PRINT: NEXT J 

20 INPUT "ENTER NAME";N2$ 

22 INPUT "ENTER BID";B2 

15 FOR J = 1 TO 25: PRINT: NEXT J 



» 

90 INPUT "ENTER NAME";N9$ 
92 INPUT "BID" ;B9 

94 FOR J = 1 TO 25: PRINT: NEXT J 
98 REM 

100 INPUT "PUSH • RETURN ' TO REVEAL BIDS"; Z$ 
102 REM 

200 PRINT "NAME", "BID" 

202 PRINT " " ," " 

210 PRINT N1$,B1 
220 PRINT N2$,B2 



290 PRINT N9$,B9 

Each art expert will walk up to the computer and enter his or her bid. 
Of course, the screen clears immediately after the bid entry. 

The student can see that this requires 18 different variable names 
and a lot of typing . If there were more than nine bidders , the simple 
sequence of variable names would be lost because Nl$ and N10$ are not 
two different variables. Even for nine bidders it would be difficult 
to revise the program so that the high bidder would be determined 
after all the bids are in. And what if there were 50 bidders? Or 
1000 bidders? No one would care to do all the typing I 
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Instead of simple variables, subscripted variables will be used. 

So, 

N1$,N2$,N3$, . . . ,N9$ 
B1,B2,B3, . • . ,B9 

are replaced by 

N$(l) ,N$(2) ,N$(3) ,...,N$(9) 
B(l) ,B(2) ,B(3) ,...,B(9) 

The significance of subscripted variables is that the subscript can be 
replaced by a varial:)le: 

N$(I) 
B(I) 

Can your students suggest a simple means for changing the value from 1 
to 9 so that the names and bids can be entered? 

A FOR. ..NEXT loop is used to alter the subscript, and the program 
becomes: 

10 FOR I = 1 TO 9 

20 INPUT "ENTER NAME";N$(I) 

30 INPUT "ENTER BID";B(I) 

40 FOR J = 1 TO 25: PRINT: NEXT J 

50 NEXT I 

100 INPUT "PUSH 'ENTER' TO REVEAL BIDS" ; Z$ 
110 FOR J = 1 TO 25: PRINT: NEXT J 
200 PRINT "NAME" , "BID" 

210 PRINT "——"," " 

220 FOR I = 1 TO 9 
230 PRINT N$(I) ,B(I) 
240 NEXT I 

Your students would enjoy actually performing the secret bidding as a 
means of testing the program. To make the situation even more 
instructive, first add the lines: 

12 PRINT "THE SUBSCRIPT IS NOW" ; I 

14 PRINT "YOU ARE ABOUT TO ENTER N$ ( " ; I ; " ) " 

25 PRINT "YOU ARE ABOUT TO ENTER B ( " ; I ; " ) " 

Transparency 4.2 will be a valuable aid for the discussion above. 
Fill in the boxes with the input data as the program is run to 
reinforce the box analogy. 

Note that there is a box with subscript zero in any array 
(N$ ( 0) ,B ( 0) ) which can be used . Negative subscripts are not 
permissible . If for some reason a subscript is not an integer , only 
the integer portion is considered during execution. 
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N$(0) 



Transparency 4.2 

B(0) 



N$(l) B(l) 



N$(2) B(2) 



N$(3) B(3) 



N$(4) B(4) 



N$(5) B(5) 



N$(6) B(6) 



N$(7) B(7) 



N$(8) B(8) 



N$(9) B(9) 
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Worksheet 4.2 



Part I Determine the exact output of each of the following programs: 



10 


FOR I = 1 TO 


10 


e) 


10 


FOR I = 1 TO 3 


20 


X(I) = I * 


2-5 




20 


A$(l) = "HAI " 


30 


NEXT I 






30 


NEXT I 


40 


FOR I = 1 TO 


10 




40 


PRINT A$(3) 


50 


PRINT X(I) 










60 


NEXT I 




f) 


10 


FOR J = 1 TO 7 










20 


READ X(J) 


10 


FOR J = 1 TO 


10 STEP 


2 


30 


NEXT J 


20 


A(J) = J 






40 


FOR K = 1 TO 10 STEP 


30 


NEXT J 






50 


T = T + X(K) 


40 


FOR K = 5 TO 


1 STEP 


- 1 


60 


NEXT K 


50 


PRINT A(K) 






70 


PRINT T 


60 


NEXT K 






80 


DATA 2,3,5,17,1,6,10, 














10 


FOR X = 1 TO 


5 








20 


READ A$(X) 




g) 


10 


FOR I = 1 TO 5 


30 


NEXT X 






20 


C(I+1) = I-l 


40 


FOR J = 2 TO 


4 




30 


NEXT I 


50 


PRINT A$(J) 






40 


FOR J = 1 TO 7 


60 


NEXT J 






50 


PRINT C(J) 


70 


DATA APE, BAT, 


CAT, DOG 


,EEL 


60 


NEXT J 


10 


FOR X = 1 TO 


5 


h) 


10 


G(l) = 2 


20 


READ W$(X) 






20 


FOR F = 2 TO 4 


30 


NEXT X 






30 


G(F) = G(F-1)T2 


40 


FOR y = 5 TO 


1 STEP 


-1 


40 


NEXT F 


50 


PRINT W$(Y) 






50 


FOR F = 1 TO 4 


60 


NEXT Y 






60 


PRINT G(F) 


70 


DATA ONE, TWO, 


THREE, FOUR, 


70 


NEXT F 



FIVE 
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Worksheet 4.2 Solutions 



Part I 



a) RUN b) RUN c) RUN d) RUN 

-3 5 BAT FIVE 

-1 CAT FOUR 

1 3 DOG THREE 

3 TWO 

5 1 ONE 

7 
9 

11 
13 
15 



e) RUN f) RUN g) RUN h) RUN 

18 2 

READY. 4 

READY. 1 16 

2 256 
3 
4 




Notes : 

b) The zeroes are present because all numeric variables are 
set to zero at the beginning of program execution . 
A(5) , A(3) and A(l) are not altered by the FOR... NEXT 
loop from lines 10 to 30. 

e) No output. Many students will be unobservant and 
interpret line 20 as A$ ( I) ="HA1 " . 

g) Students have seen that the subscript can be a constant 
numeric value or a variable. Here the subscript is an 
algebraic expression. 
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Lesson 4.3 



OBJECTIVE: a) to extend understanding of subscripted variables to 
include double subscripts 



ASSIGNMENT: Read pages 4.10 through 4.13 Do review problems 5-6 

Text problems 5,17,21 Homework problems 6,14,16,18,24 



The concept of doubly subscripted variables can be difficult for 
students, but it is valuable especially for string data that can be 
represented in a "real world" situation by rows and columns. For 
example, seats on an airliner, or post office boxes usually are set up 
in rows and columns. 

Review the diagram on page 4,11 in the text. Make sure that your 
students understand that the rows run horizontally and the columns 
vertically and that the subscript gives the row and then the column. 

A( row, column) 



It is advisable to spend time on Program 4.10 stepping through it 
line by line since this program reviews most of the programming 
concepts covered to this point in the text. Emphasize the necessity 
of a DIM statement for all doubly subscripted variables; without it 
the computer does not know how the rows and the columns relate. 

The FOR... NEXT loop between lines 30 and 90 is the heart of 
Program 4.10. Explain to your students that after line 40 reads a 
name from the DATA statement, lines 50 and 60 randomly pick a row and 
column in which the name is to be stored. Line 70 checks if that 
position has been previously chosen. If it is empty, N$ (R,C) will 
contain a blank space which the computer represents as if it has 

any other string information stored in N$ (R,C) , the program returns to 
line 50 to pick another random row and column , As the prog ram 
operates , the computer is going to find it increas ingly difficult to 
locate an empty seat randomly , To find out how many attempts the 
computer made to fill the 14 seats , add a counter at line 65 

65 Z = Z + 1 

and print the result at line 95 

95 PRINT Z; "ATTEMPTS WERE MADE TO FILL THE 14 SEATS" 
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To further assist students in seeing how Program 4.10 works, add 
the f ol lowing lines and have the students fill in the appropriate 
boxes in the doubly subscripted array as it is actually run: 

85 PRINT " ROW" ;R," SEAT" ;C 

86 PRINT "HAS BEEN ASSIGNED TO";N$ (R,C) 
88 INPUT "HIT RETURN TO CONTINUE" ;D$ 

Notice how line 88 will stop the program to give the user time to read 
the information and will continue only after a RETURN is typed . The 
string variable DUMMY$ is used only to complete the INPUT statement; 
any unused string variable can be used . 

A complete 1 is ting of Program 4.10 and the boxes needed to fill 
the program run are given in Transparency Master 4.3. 
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Transparency 4.3 



10 DIM N$(5,3) 

20 Fi:EM F^EAI) 14 NAMEIS RANDOMLY INTO AF(F(AY 
30 FOR X 1 TO 14 
^1-0 F(EAD A<l; 

50 F( INT (5 * RND(0) + 1) 
60 C --'-^ INT (3 * RND(0) + 1) 

65 I Z + 1 

70 IF- N$(R,, C) <> "" THE:N 50 

30 N$(R,, c) m 

S'5 PR I NT "ROW" ;: R,, "SFIAT" ; C 

36 PRINT"HAE3 BE;EN ASSIGNED TO ";N?Si(R,C) 

8 8 I N 11 "T ' ' H I "f R E T LJ R N T CON T I N LJ E " n I) * 
90 NEXT X 

9 5 F-' 1-^; I N T Z ? " A T f IE M F^' T S W IE R E MADE F F I L L 14 £! E A T S ' ' 
100 REN PRINT SEATING CNARTS 

110 FOR Rl 1 TO 5 

120 FDR Ul ^= 1 TO 3 

130 IF N$(R1,C1) - "" THEN PRINT "EMPTY",: GOTO 150 

140 PR I NT N* (Rl , CI ) , 

150 NEXT CI 

160 NEXT Rl 

170 REN 

1EJ0 DATA ANNE, DON, SHERRY, MAGGIE, TED, LIZ, ROB 

190 DATA MARY, DAVID, MARK, KEVIN, SUSAN , WENDELL , C I NDY 



I X 3 



I 



3 
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Worksheet 4.3 



Part I 



a) 



The boxes at the right represent double subscripted arrays. 
For each program below place the indicated value in^ the 
appropriate boxes: 



10 N$(2,2) 
20 N$(l,3) 
30 N$(3,l) 
40 N$(4,2) 



"A" 

"B" 
"C" 



array N$ 
/ i 3 



column 



r 
o 
w 



array X column 

b) 10 FOR I = 1 TO 5 \ 

20 FOR J = 1 TO 5 ^ 

30 X(I,J) = I * J 

40 NEXT J 1 

50 NEXT I r — — 

o J 

w 

V 



r 



Part II This program should put a numeric value entered at the 

keyboard into a random position within a two dimensional 
array. Identify and correct any errors which exist. 



a) 10 DIM Y(12,12) 

20 I = INT ( RND(O) * 13) + 1 
30 J = INT ( RND(O) * 13) + 1 
40 INPUT W 
50 Y = W(I,J) 



Part III Determine the exact output of each of the following programs: 



a) 10 DIM X$(3,3) b) 

15 FOR R = 1 TO 3 

20 FOR C = 1 TO 3 

25 READ X$(R,C) 

30 NEXT C 

35 NEXT R 

40 REM 

45 FOR C = 1 TO 3 

50 FOR R = 1 TO 3 

55 PRINT X$ (R,C) ; 

60 NEXT R 

65 PRINT 

70 NEXT C 

75 DATA C,A,T,0,N,E,P,T,A 
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10 FOR I = 1 TO 3 

20 FOR J = 1 TO 7 

30 READ X (I, J) 

40 NEXT J 

50 NEXT I 

60 PRINT X(2,5) 

70 PRINT X(3,l) 

80 DATA 3,7,5,6,9,1 

81 DATA 2,4,11,24,53,31 

82 DATA 92,93,98,47,42 

83 DATA 49,16,19,107 



Worksheet 4.3 Solutions 



Part I 



a) 







3 






b) 


/ 




3 


9 






R 










LJ 








c 












6 


? 








D 








V 


8 




















fo 









Part II 

Lines 20 and 30 : The list of random numbers includes 13 , which 
is beyond the range established by the DIM statement . 

Line 50: Should be Y(I,J) = W 

Part III 

a) RUN b) RUN 

COP 31 
ANT 98 
TEA 
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Chapter 4 Supplementary Problems 



A computer terminal is installed in a sports arena so that the 
basketball coaches can keep track of the shooting percentages . We 
will assume that there are eight players on the squad, with 
jerseys numbered from one to eight. 

For each player you will need to keep track of the number of shots 
attempted and the number of shots that were successful . At the 
end of the game or practice the coach will enter a zero as shown 
in the example, and the computer will print out a table of 
information. 

To calculate the percentage of successful shots, calculate 

successful shots 
„ „ „ X 100 

shots attempted 

Watch out for 'divide by zero' error. It will occur if a player 
takes no shots all game. 



RUN 

INPUT PLAYER NUMBER? 3 
DID HE MAKE THE SHOT? Y 
INPUT PLAYER NUMBER? 1 
DID HE MAKE THE SHOT? Y 
INPUT PLAYER NUMBER? 3 
DID HE MAKE THE SHOT? N 
INPUT PLAYER NUMBER? 5 
DID HE MAKE THE SHOT? N 
INPUT PLAYER NUMBER? 6 
DID HE MAKE THE SHOT? Y 
INPUT PLAYER NUMBER? 



PLAYER # PERCENTAGE 



1 


100 


2 





3 


50 


4 





5 





6 


100 


7 





8 






Ignoring leap years, one may assume that babies have a l-in-365 
chance to be born on a given day of the year . Certainly, in a 
crowd of 366 people, at least two people will have the same 
birthdate. What do you suppose the chances are that two people 
will have the same birthdate in a crowd of 35 people? You '11 be 
surprised. 

a) Taking January 1 as day 1 and December 31 as day 365 , write a 
program which will randomly select days of the year until a 
repeat occurs . The computer should then print out the number 
of 'people in the crowd ' . 



RUN 

THERE ARE 22 PEOPLE IN THE CROWD 
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b) Have the computer repeat the processes 50 times and print out 
the average 'number of people', 

RUN 

THE AVERAGE IS 26.54 

Establish a 5x5 array of string boxes. The array will serve as a 
game board and m.ay be visualized as follows: 



Have the computer pick a random row number (1 to 5) and a random 
column number (1 to 5) . Hide the word "DRAGON" in the single box 
determined by the row and column numbers drawn. Start the user 
with 10 points and ask the user to pick a row and column. Check 
the box indicated to see if it contains the word "DJ^GON". If it 
does, print the user's score and end the game. If the box chosen 
does not contain the word "DRAGON", subtract one from the user's 
score and place the word "DRAGON" in the box chosen., The player 
picks another box to continue the game. As you can see, when the 
player picks the same box twice, or the box in which "DRAGON" was 
originally placed, the game ends. 

Find all solutions of the equality 2X = y(X-l) for X between 1 
and 20 (integers, inclusive) , and Y between -10 and 10 (integers, 
inclusive). Use a "looping solution". 
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Chapter 4 Supplementary Problem Solutions 

1) 10 DIM A(10,2) 

20 INPUT "INPUT PLAYER NUMBER"; A 

30 IF A = THEN 100 

40 INPUT "DID HE MAKE THE SHOT" ;A$ 

50 IF A$ < > "Y" AND A$ < > "N" THEN 40 

60 IF A$ = "Y" THEN A(A,2) = A(A,2) + 1 

70 A(A,1) = A(A,1) + 1 

80 GOTO 20 

100 PRINT : PRINT "PLAYER #" ," PERCENTAGE" 
110 FOR I = 1 TO 8 

120 IF A(I,1) = THEN PRINT 1,0: GOTO 140 
130 PRINT I ,A( 1,2) / A( I ,1) * 100 
140 NEXT I 



2a) 10 DIM A(365) 

20 I = 1:A(1) = INT ( RND(O) * 365 + 1) 

30 A = INT (RND (0) * 365 + 1) 

40 FOR J = 1 TO I 

50 IF A = A( J) THEN 100 

60 NEXT J 

70 A( J + 1) = As 1 = 1 +1 
80 GOTO 30 

100 PRINT "THERE ARE" ; I + 1; "PEOPLE IN THE CROWD" 



10 


DIM A(365) 






15 


FOR K = 1 TO 50 






20 


I = 1:A(1) = 


INT ( 


RND (0) * 


30 


A = INT (RND 


(0) * 


365 + 1) 


40 


FOR J = 1 TO 


I 




50 


IF A = A( J) 


THEN 


100 


60 


NEXT J 






70 


A( J + 1) = A: 


1=1 


+ 1 


80 


GOTO 30 






100 


N = N + I + 1 






110 


NEXT K 







120 PRINT "THE AVERAGE IS" ;N / 50 



3) 10 DIM A$(5 ,5) : S = 10 

20 A$( INT ( RND (0) * 5 + 1) , INT ( RND (0) * 5 + 1) ) = "DRAGON" 
30 INPUT " (ROW, COLUMN) " ;X , Y 

40 IF A$(X,Y) = "" THEN A$ (X,Y) = "DRAGON" : S =8-1: GOTO 30 
50 PRINT "YOUR SCORE IS " ; S 



4) 10 FOR X = 1 TO 20 

20 FOR Y = -10 TO 10 

30 IF 2 * X = Y * (X - 1) THEN PRINT "X=" ;X; " Y='';Y; " IS 

A SOLUTION" 

40 NEXT Y 
50 NEXT X 



RUN 

X= 2 y= 4 IS A SOLUTION 
X= 3 y= 3 IS A SOLUTION 
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Part I 
a) 



b) 



c) 



Chapter 4 Test 



Determine the exact output of each of the following programs; 



10 FOR X = 1 TO 3 

20 FOR y = 1 TO 

30 PRINT X; 

40 NEXT y 

50 NEXT X 

10 FOR X = 1 TO 4 



20 
30 
40 

50 



FOR Y = 1 TO 4 

PRINT X + y 
NEXT y 
NEXT X 



TO 15 



10 FOR P = 1 
20 FOR Q = TO 5 
30 S = S + 1 

40 NEXT Q 

50 NEXT P 

60 PRINT S 



d) 



10 FOR R = 1 TO 3 



20 FOR C = 1 TO 10 

30 X(R,C) = R - C 

40 NEXT C 

50 NEXT R 

60 PRINT X(7,2) 

70 PRINT X(3,5) 

e) 10 FOR J = 1 TO 4 
20 READ V, I 
30 X( I) = V 
40 Y(I) = J 
50 Z (J) = I 

60 NEXT J 

70 FOR J = 1 TO 4 
80 PRINT X( J) , Y( J) , Z (J) 

90 NEXT J 

100 DATA 3,1,2,2,2,3,4,2 



Part 1 1 Ci rcle the programming error ( s) within each program given. 

Explain what must be done in order to correct the error . If 
no errors exist, state so. 



a) 10 FOR X = 2 TO 3 

20 FOR Y = 4 TO 6 

30 PRINT X;Y 

40 NEXT X 

50 NEXT y 



d) 10 FOR I = 1 TO 5 
20 READ X 
30 XT2 = N( I) 
40 NEXT I 

50 DATA 2,1,0,-1,-2 



b) 10 FOR I = 1 TO 20 e) 
20 X( I) = INT ( RND 

(0) * 5) + 1 
3 NEXT I 

c) 10 FOR I = 1 TO 5 
20 READ X 

30 N(X) = 17 
40 NEXT I 

50 DATA 2,1,0,-1,-2 



10 REM ENTER FIVE WORDS 
AND PRINT THEM OUT IN 
REVERSE ORDER 

20 FOR I = 1 TO 5 

30 INPUT W$ 

40 NEXT I 

50 FOR I = 5 TO 1 STEP - 1 
60 PRINT W$ 
70 NEXT I 



Part III Wr ite each of the following programs as concisely as 
possible: 

a) Find the integers X and Y for the equation below such that 
both values lie between and 10 



2X - Y = -2 and -3X + 2Y = 5 



b) Write a program to place 20 random integers between 1 and 
100, inclusivef in -a singly subscripted array called X and 
then print them out. Let DIM X(20) be the first line in your 
program. 
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Chapter 4 Test Solutions 

The credit for each program is given in brackets [ ] . 
Part I [ 5@ = 25 ] 



KUN 


d) RUN 






111 

J. ± ± 


^ ^ ^ o -> o n 

^ ^ O J u 






DT7M 








o 


e / K u IN 










± 


± 


A 




A 





D 








J 


n 
U 


u 





4 








5 








6 








4 








5 








6 








7 








5 








6 








7 








8 









c) RUN 
90 



Part II [ 5@ = 25 ] 



a) Lines 40 and 50 are interchanged; therefore a ?NEXT WITHOUT 
FOR ERROR IN 50 will occur. 

b) Array X ( ) needs to be dimensioned since the subscript goes 
above 10. 

c) Negative subscripts are illegal . 

d) Expressions on the left side of an assignment statement are 
illegal ; therefore , line 30 should read 

30 N(I) =^ X " 2 



e) Subscripts from line 30 and 60 are miss ing ; they should read 



30 INPUT W$(I) 
60 PRINT W$(I) 



Part III 



a) 10 FOR X = 1 TO 10 
20 FOR y = 1 TO 10 

30 IF (2 * X - y = -2) AND (-3*X+2*y 

PRINT "X=";X;"y='';y;"IS A SOLUTION" 
40 NEXT y 

50 NEXT X 
RUN 

X= 1 y= 4 IS A SOLUTION 

b) 10 DIM X(20) [ 25 ] 
20 FOR I = 1 TO 20 

30 X(I) = INT ( RND (0) * 100 + 1) 
40 PRINT X(I) , 
50 NEXT I 



RUN 

23 56 58 4 

38 70 43 92 

40 66 77 75 

57 59 94 21 

74 47 38 28 



[ 25 J 
= 5) THEN 
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Lesson 5.1 



OBJECTIVES: a) to contrast the difference between branching using 
GOTO and branching using GOSUB 

b) to be able to incorporate ON... GOTO and ON GOSUB 

statements into programs 



ASSIGNMENTS Read pages 5.1 through 5.4 Do review problems 1-3 
Text problems 1,3 Homework problems 2,4 



When GOSUB. . .RETURN is introduced in the text, the skeleton 
program shown below is introduced. The added arrows and 'box' will 
help your students comprehend the structure. 

10 

2 GOSUB 200 
30 



Hi^Q iifiiMD 

200 

210 

220 

23 RETURN 



However, the real value of GOSUB. .. RETURN is that a subroutine can be 
called from any line in a program, and the computer will always return 
after executing the subroutine to continue from the line following the 
GOSUB statement. Such a program cannot be written with only GOTOs. 
For example, consider the following skeleton program: 

10 

20 GOSUB 200 

30 

40 GOSUB 200 

50 

60 END 

200 

210 

220 

23 RETURN 

The order of execution of this program is 10,20,200,210,220,230,30,40, 
200,210,220,230,50,60. Note how line 60 keeps the program from 
continuing to execute. 



The variable in the ON <variable> GOTO and the ON <variable> 
GOSUB statements may only take on positive integer values from 1 to 
255. Integer values greater than 255 or less than create an 
"ILLEGAL QUANTITY ERROR". 
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Worksheet 5.1 



Part I 
a) 



Determine the exact output of the following programs; 



b) 



100 

200 
"C": 



10 PRINT 
20 GOSUB 
30 PRINT 
40 GOSUB 
50 PRINT 
60 END 

100 PRINT "D"; 
110 RETURN 
200 PRINT "E"; 
210 RETURN 



c) 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

110 

120 

130 

140 

150 

160 



PRINT "A" 
X = X + 1 
ON X GOTO 
PRINT "B" 
GOSUB 
PRINT 
PRINT 
GOSUB 
PRINT 

GOTO 

PRINT 



40,70,150 



110 
"D" ; 



130 
"E"; 
10 



d) 



RETURN 
PRINT "G"; 
RETURN 
PRINT "H"; 
END 



10 PRINT "A"; 
20 I = 3 

30 ON I GOSUB 100,200,300,400 

4 PRINT "B"; 

50 GOTO 30 

100 PRINT "C"; 

110 I = 2 

120 RETURN 

2 00 PRINT "D"; 

210 1=3 

220 GOSUB 300 

230 PRINT "E"; 

240 1=4 

250 RETURN 

300 PRINT "F"; 

310 I = 1 

32 RETURN 

400 PRINT "G"; 

410 END 



10 PRINT 

2 GOSUB 

3 PRINT 
40 GOSUB 
50 PRINT 
100 PRINT "D"; 
110 RETURN 
200 PRINT "E"; 
210 RETURN 



"A" 

100 

ngn 

200 
"C" 



Part II Determine what line 70 should be: 

10 INPUT "ENTER YOUR NAME";N$ 
20 PRINT 

30 PRINT "1. DELAY IT 10 - SECONDS" 

40 PRINT "2. ENDLESS LOOP IT" 

50 PRINT "3. FORGET IT" 

6 INPUT "SELECTION"; I 

70 

80 PRINT N$ 
90 GOTO 80 
100 T = TIME 

110 IF INT(TIME - T) <> 600 THEN 110 
12 PRINT N$ 
130 END 
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Worksheet 5.1 Solutions 



Part I 

a) ADBEC 

b) ABFCDGEADGEAH 

c) AFBCBDFEBG 

d) ADBECD followed by ? RETURN WITHOUT GOSUB ERROR IN 110 
Part II 

70 ON I GOTO 100,80,130 
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Lesson 5.2 



OBJECTIVES; a) to develop strategies for designing successful, 
well-structured programs, including how to: 

i. outline programs using algorithms 

ii. structure programs using modules and 
subroutines 

iii. document programs using REM statements 



ASSIGNMENT: Read pages 5.5 through 5.11 

Text problems 7,9,11 Homework problems 8,12,20 



Clear style and structure are every bit as important in a computer 
program as they are in an Engl ish essay. As programs become very 
long, they become considerably more complicated and therefore require 
careful planning. For this reason, it is imperative in teaching 
programjning to insist on good style. 

After completing the first five chapters, a student will have 
learned most of the BASIC commands necessary to write almost any 
program. At this point in your programming course, it is well worth 
spending a considerable amount of time discussing problem solving 
techniques and programming style. The major problem in holding such a 
discussion is that to this point students have not written programs 
long enough to see the value of developing such skills. You should 
convince your students that learning how to solve problems is a major 
objective of an introductory programming course and that its value 
will become obvious as problems of increasing difficulty are 
confronted. 

Students tend to attack problems directly without first planning, 
an approach which should be strongly discouraged. It is a good 
practice to require students to submit to you a carefully outlined 
solution before beginning to program on the computer. 

The text outlines the solution to a problem for writing a program 
to quiz students in mathematics. This lesson will demonstrate how to 
plan a solution to a problem of somewhat greater complexity. 

The correct method for planning the solution to a lengthy problem 
is called "top-down" planning. This method involves working on the 
major portions of the solution first and leaving the specifics until 
later. The problem is first broken down into large blocks and the 
details of the blocks are filled in at a later time. We will use 
subroutines to code each of the large blocks. 

The problem we will solve involves computing the payroll for a 
small company which employs five people. Each employee receives a 
weekly paycheck computed as follows: 
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1 . The gross ( total) pay is ba 
times the hours worked; for 
employee receives 1.5 times 
times the hourly wage. 

2. Taxes are deducted based on 



ed on the employee's hourly wage 
every hour over 40 hours, the 
the hourly wage; over 50 hours, 2 



the following schedule: 



$200. - 10% 

$300. - 15% 

$400. - 25% 

$600. - 50% 



3 . Social security is deducted at 6 . 25% of the gross salary . 

4 . Participants in the company pension plan can have 10% of 
their gross wage subtracted and saved, but not all employees 
have elected to join the pension plan. 

5. There is a vacation fund which allows employees to subtract 
from 1 to 5% of their gross wages . 



First, we must determine what information the computer must have 
for each employee: 



1 . name 

2 . hourly wage 

3 . hours worked (which varies from week to week) 

4 . pension plan (yes or no, signified by 1 or 0) 

5 . vacation plan percentage. 



This information would be best stored in a disk file, but since we 
have yet to cover disk files, we will store the information in data 
statements structured as follows: 



900 DATA SMITH, 4. 25, 1,5 



The first string contains the employee ' s name, then the hourly wage, a 
number ( or 1 ) for the pension plan , and a percentage for the 
vacation plan. Since the hours worked vary , they will be input from 
the keyboard when the program is run. 

Next let ' s determine the large blocks by deciding what major tasks 
the program should perform. 

1. Load information into arrays from the data statements and 
input the hourly wage from the keyboard. 

2. Compute all deductions (a) taxes and social security 

(b) pension and vacation plans 

3. Print out payroll. 

We have three major tasks, with the second divided into two 
subdivisions. From this basic outline we can outl ine our program 
without filling in the specific details . 



100 GOSUB 2000 
200 GOSUB 3000 
300 GOSUB 4000 



REM LOAD ARRAY AND ACCEPT KEYBOARD INPUT 
REM DEDUCTIONS 
REM PRINT PAYROLL 
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10 F(Eli 

20 REM **F'AY CHECK PROBRAH*^; 
30 REM 

40 REM - 

50 REM 

6, R E M * V A F( I A B I.... E! D E C L E R A T IONS 

70 REM 

80 REM m ( ) EI^IF-'EOYEEB MA ME 

90 REM S ( ) MOUFiLY WAGE 

100 REM 

110 REM DO DEDUCTION CODE 

120 REN : JUST TAKE?; Z< SOC. SEC. 

].30 REM 1 ; ALSO PENS. VAC. FUND 

140 REM 

150 REM AO 7. TO GO INTO VAC FUND 

160 REM 

170 REM WO - HOURS WORKED 
lf30 REM 

190 REM GO -■ EMPLOYEE^' S GROSS PAY 
200 REM 

210 REM TO •- TAX DEDUCT 
220 REM SS ( ) - SS DEDUCT 

230 REM PO PENSION DEDUCT 

240 REM VO VAC. FUND 
250 l-^EM 

260 REM Q ■- TARGET NUMBER THAT IB SENT 
270 REM - THE ROUNDING SUBROUTINE 
2B0 REM 

29!;S REM ROUND TFIE ROUNDED # RETURNED 

300 REM 

320 REM 

1000 REM MAIN BODY *** 

1010 REM 

1020 DIM N* (5) , S (5) , D (5) , A (5) 

1030 DIM T (5) ,, SS (5) , P (5) , V (3) ., W (5) 

1040 GOSUB 2000;; REM LOAD ARRAY 

1050 FOR l^^l TO 5 

1060 GOSUB 3000; REM DEDUCTIONS 
1070 PRINT 

10G0 NEXT I 

1090 GOSUB 4000; REM PRINT OUT 

1 :l. 00 END 

1110 REM END OFF MAIN BODY *** 

1120 REM 
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2000 F<£M *** SUBROUTINE; LOAD AF(FmY *** 

2010 F<EM 

2020 FOR TO 5 

2030 F'F<:i:nt 

2040 f<ead n* ( i ) , b ( i ) , d ( i ) , a ( i ) 

2050 DATA B I DWELt.. ,7.65,1,4 

2 & 6j DA T' A W A M G ,, :3 „ Z 5,0, 

2 7 D A "i" A Zm A F< C H U F:: , 5 , , 

2080 DATA DIMlBLE,, 5,, 1 , 2 

2 9 I) A T A N ]; L S L J M , 6 ,. 4 5 , 1 , Z 

210 G (3 S IJ E 5 i;i : R E M F-1 U R S W F< K E D 

2 1 1 G S U B 6 R: E M (3 ROSS R A Y 

2120 NEXT I 

2130 FfEM 

2140 REM LOAD TAX F'EF^CEMT AFcRAY 

2150 F<EM 

2160 E0F( I ==2 TO 6 
2170 F?EAD TR(I) 

2180 NEXT I 

2190 DATA „ 1 , . 1 5 ,, . 25 ,, „ 25 , , 3 

2200 RETURN 

2210 REM END OF LOAD ARRAY ttt 

2220 REN 

3000 REN %%t SUBROUTINE; DEDUCTIONS 

3010 REM 

3020 REN TAXES SOC. SECURITY 

:3030 REN 

304:0 M^^0 

3050 M:=^1-|+l 

/' 6 1 F I N T' ( . 1 * !3 (I ) ) M T F! E N Z S 

3070 IF M<6 T'HEN 3050 

3080 IF M<2 THEN 3130 

3090 P=TR(N) 

3l!;i0 T' ( I ) =:4-*G ( I ) 

1. 1 1 Q =^ ( 1 ) i; G C] S U B 7 r. R E. M ROU N D ]; N G 

3120 T C I ) -ROUND 

3130 SS ( I ) - . 0625)((G ( I ) 

3 1 ^ (;! Q S Gil.) s 6 S (J B 7 i;i i;) z R E M R U N D I N G 

3150 SS ( 1 ) -ROUND 

3160 IF NOT D(I) TFIEN RETURN 

3170 REM 

318)3 REN PENSION PLAN AND VACATION FUND 

3190 REM 

Z200 P ( I ) 1 *G ( I ) 

32 1 Q-P < I) ; GOSUB 7000 2 REM ROUND I NG 

322!^ I- ( I ) -ROUND 

3230 V ( I ) - ( A (I ) / 1 00 ) iXG ( I) 

:3 2 ^l !;* V (I ) : G G U B 7 : R E M R C! U N D I N G 

3250 y ( I ) -ROUND 

5260 RETURN 

3270 REM END OF DEDUCTIONS *** 

3280 REM 
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4000 REM SUBROUTINE: PRINT OUT *!«>!< 

4010 REN 

4020 FOR 1=1 TO 5 

4030 PRINT 

4040 PRINT "EMPLOYEE NO. ";I 

40?J0 PRINT 

4060 PR I NT " NAME > > " ; N* ( I ) 

4070 F>R I NT " PAY RATE ^^-^^^ > > $ " ; S ( I ) ; " / HR " 

4 Q P R I N T ' ' H U Fi; S W C] R K E D ^^^^ > >■ " s W ( I) 

4090 PRINT "GROSS PAY > > $"jB(I) 

4100 PRINT "DEDUCTIONS" 

4110 PRINT " TAXES $";T(I) 

4120 PRINT " SS DEDUCT *";SS<I) 

4- J. 3 P R :i: N T " P E N S I C J N $ " ; I-' ( I ) 

4140 PRINT " VAC, FUND *";V<I) 

4 1 50 AMOUNT Gil) ( T ( I) +8S ( I ) +P ( I ) +V (I ) ) 

4160 PRINT 

4- J. 7 !;! P R :i: N r " P A Y C; IH E C P. = > > " ; A M U N 

4180 PRINT 

4190 NEXT I 

4200 FcETUFdM 

4210 REM 

4220 REM END OF PRINT OUT *** 

4230 REM 

4240 REM 

4250 REM 

4260 REM 

5000 REM *?X!KSUBROUTINE: HOURS WORKED **)K 

5010 REM 

5(;i20 PR I NT " EMPLOYEE #";!;" " ; m ( I ) 

5 3 ]; N P U T " H Ul 1^1 A N Y H U F^ S DID U E W R l<: =^ > > " ; W (I ) 

5040 PRINT 

5050 IF W(I)<0 OR W(I)>1000 THEN PRINT " REENTER BOTO 5020 

5060 RETURN 

5(^)70 REM ttt END OF" HOURS WORKED *** 

50E30 REM 

6000 REM ***SUBROUTINE: CALCULATE GROSS PAY *** 

6010 REM 

6020 I F W ( I ) < 40 TFIEN 6 (I ) ^^^W ( I ) *S ( I ) : 80 FO 6050 

6040 G ( I) :=^^40*S ( I) + ( 1 „ 5*S (I ) * ( W (I ) --40) ) 

6050 Q^==G ( I) s GOBUB 7000;; REM ROUNDING 

6060 G < I) ^=ROUND 

6070 p R I N T ' ' T hi;;; e: m f-' l d y ie e's g r o s s pay i i; " ; g ( i ) 

6 3 P Fi; I N T " ■ - • -- - - - - - - - ' ' 

6090 RE"rUF<N 

6100 REM **;(; END OF CALCULATE GROSS PAY *** 

6110 REM 

7000 REM SUBROUTINE: ROUNDING 

7010 REM 

7 2 l=( U N D 1 N F il00t Q +.5) / 1 
7030 RETUF<N 

7040 REM END OF ROUNDING * * * 
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A sample run of the above program follows, as well as a schematic 
diagram of the program's structure and hierarchy: 



RUN 



EMF'LDYEE #1 DWELL 

HOW MANY HaUF-<S DID HE WORK 



43 



THIS EMI-'LOYEE'S GRGSS PAY IS *340.43 



EMF'LOYEE tt5 NILSON 

HOW MANY HOURS DID HE WORK 



b6 



THIE; EMPLOYEE Mi> BRCSS PAY IS '^432.15 



« 

EMPLOYEE NO. 1 



B I DWELL 



^7, 



/HR 



MA ME :=^=^:= 
PAY RATE =^==^== 
HOURS WORKED 43 
6 R S S P AY === > > •t340. 4 
DEDUCTIONS 

TAXES $51.06 



SS DEDUCT 
PENSION 
VAC. PUND 



*21 , 28 
*34. 04 
*13. 62 



PAY CHECK ^^^=>> $220.43 
EMPLOYEE MO. 5 

IMAME n:=:=::.=.>> NILSON 

F' A Y R A T E = ^ > > $ 6 . 4 5 / H R 
HOURS WORKED =::=^=>> 56 
8R0SS PAY $432. 15 

DEDUCTIONS 

TAXES $108.04 

SS DEDUCT $27.01 

PENSION $43.22 

VAC. PUND $12.96 

P AY CHEC K ===== > > *240.92 



IDAD ARRAY 



HOURS 
WORKED 



MAIN BODY 



DEDUCTIONS 



PRINT OUT 



CALOJIATE 

GROSS 

PAY 



I 



ROUN- 
DING 



ROUN- 
DING 
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In any long , complex prograir, that uses many variables, a variable 
declaration section , which declares all of the variables that are to 
be used and what they represent, can help explain the purpose and the 
method of the program. Lines 10 through 320 comprise the variable 
declaration section for the above program. 

The main body of this program consists only of the three calls to 
the subroutines that were discussed earlier. The REM statements at 
lines 1000 and 1110 signal the beginning and the end of the main body, 
respectively. 

The subroutine called LOAD ARRAY, called from line 1040 , starts at 
line 2000 and ends at 1 ine 2210 . It performs several functions . 
First, it fills in the employees ' names , wages and deduction packages, 
using the READ,. DATA statements that occur in lines 2040 to 2090 . 
After this data is loaded, two additional functions are used. Line 
2100 calls a subroutine HOURS WORKED, which starts at line 5000. This 
subroutine allows the user to input the hours worked by each employee 
and tests the input for undesirable inputs. One subroutine calling 
another subroutine is legal and can lend clarity to a program' s 
statement. If at a later time it becomes necessary to change the 
program, locating the specific lines to be edited is made easier by 
this structure. 

Line 2110 also calls a subroutine, called CALCULATE GROSS PAY, 
which, as the name suggests , calculates each employee ' s gross (i.e. 
before deductions) pay for the week , using each employee' s hourly 
salary and the number of hours worked. These two variables are used 
to calculate the gross pay using the formula outlined in the problem 
description. 

Lines 2130 to 2190 fill an array which will be used later to 
calculate the amount that must be deducted from each pay check because 
of tax . Each subscript represents $100 of gross pay (i.e. TR(4) is 
the percentage tax you must pay if your gross pay is between 400 and 
499 dollars) . After this brief function the program RETURNS (line 
2200) to the main body. 

Next, the subroutine DEDUCTIONS is called from line 1060. This 
subroutine calculates the various deductions that must be subtracted 
from the employee' s gross pay. The deduction due to taxes is 
calculated between lines 3040 and 3110 , and the amount of each is 
stored in the variable T( I) . After figuring the social security 
deduction, the program uses a conditional statement to determine 
whether to deduct for pension and vacation plans. The subroutine ends 
on line 3260 and RETURNS to the main body. (Note: This procedure is 
repeated for each employee separately. ) 

Finally, the program calls the last of the three subroutines, 
PRINT OUT, from line 1090, which prints out a detailed report on each 
employee, using the information that was obtained in the previous two 
subroutines. After printing out the pay reports , the program RETURNS 
to line 1100 , where it ends. 

An excellent example of the usefulness of a subroutine is the 
subroutine ROUNDING which, although only one line long, is called from 
throughout the program to round all calculations to the nearest cent. 
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We believe the best way to plan a computer program is by writing 
out a plan ( algorithm) as we have done in this lesson. Some teachers, 
however, also believe in flowcharting , so we have included a section 
from an earlier publication as an introduction to that technique of 
planning a computer program. 
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FLOWCHARTING 



As programs become more complex, it becomes especially easy to forget Important 
details or to lose track of the direction that the program must take. Such problems can be 
avoided by preparing an outline In the form of a flow chart before the program Is actually 
written. 

Symbols for Flowcharting 

A large program often consists of two parts; the main body of the program in one, and 
its functions and subroutines in the other. Usually the main body comes first and the 
functions and subroutines second. Execution of the main body should flow from top to 
bottom. Any GOTO statements should send execution to a point before the GOTO, and not 
after it. This format makes a program easier to be read and, in many cases, more efficient. 
To write such a program the programmer must first have a comprehensible outline. One 
way to construct an outline is to draw what Is called a flow chart. A flow chart consists of 
various symbols and words which graphically show what the program is to do. Because of 
their pictorial form, flow charts make potential deficiencies In a program easy to spot; 



There are five different symbols in flowcharting. The first symbol is 



This Is a terminator which Indicates the beginning or end of a program or subroutine. The 



second symbol is / /and Is called the Input/Output or I/O symbol. This 



indicates that data Is either entering or leaving the program. Generally, It designates an 
operation with the disk or tape, or an INPUT, READ, or PRINT statement. The following Is 
a flow chart to input a number (X) and print the number multiplied by three. 




One possible program for this flow chart would be the following: 

10 INPUT X 
20 PRINT 3*X 

Note the arrows In the flow chart which Indicate the direction of flow in the program. Also 
note that the flow chart proceeds from left to right. In general, flow charts proceed from left 
to right or from top to bottom. In more complex examples, they may move both from left 
to right and from top to bottom. 



CD 
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The next symbol is the process symbol vvhich indicates the processing of some data 



the other four more specific symbols does not apply. The foliowing is a flow chart for a 
program which allows the user to input a student's name and four course grades. It 
computes the average of the grades (process symbol), prints the student's name and 
average, and then returns to begin the cycle again. The accompamying program was 
written based upon the flow chart. 



, It is the most general of the five symbols and is used v/henever one of 




I 



V=(A4B+DDj/4 




10 INPUT "NAME AND 4 GRADES : 
20V=(A+B+C+D)/4 
30 PRINT N*» V 
40 GOTO 10 



;N$,ArBrC,D 
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The fourth symbol, >^ designates a conditional, indicating that a decision 



Is to be made. The IF . . . THEN statement is one type of conditional. The following flow 
chart specifies a number that is Input and then goes on to determine If it be negative or not. 




10 INPUT X 

20 IF X < THEN PRINT "NEGATIVE": END 
30 PRINT "NOT NEGATIVE" 
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The conditional symboi aiways has two or more arrows coming from it. In this case there 
are two such arrows, iabeied Y for YES and N for NO. 

The NEXT X portion of a FOR ... TO, NEXT loop is also a conditional. The flow chart 
and accompanying program asl< the user to input a number and then print four multiples 
of the number. 

Begin 



/Input 
N 





FoKX=!to4 
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Each time the conditional symbol Is reached, X is incremented and a decision Is made 
based on its new value. If X Is 4 or less, the loop continues and another result Is printed; 
if X exceeds 4, the run ends. The two exit symbols from the conditional allow these two 
possibilities. 



The last symbol Is the connector symbol, which is a circle: 



O 



It Is used to 



connect separate parts of a flow chart. One Important way In which this symbol Is used is 
to indicate the connections between the main body of a program and its subroutines. 
Letters are placed in the connector symbols to indicate which connect with which. 
The following is a flow chart for Program 7.1. 



Pennies 



Nickels 
V=5 



Dimes 

V = lO 



Quarters 
V=25 



Print 

Total 





A 




Finish ^ 




Print 




When a connector symbol is encountered in the main program, execution proceeds to 
the connector bearing the same letter in the subroutine. You should understand that after 
the RETURN box is reached, execution goes back to the box In the main program which 
follows the last connector used. 
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Worksheet 5,2 



Part I Write a program incorporating subroutines to perforin major 

tasks. The program will play the game 'TRIVIA' and will ask 
the user to answer a series of questions. The program may 
not repeat a question during the game. The program should 
print the score at the end of the game. Use the following 
READ... DATA statements in your program: 



10000 DATA 10: REM NUMBEF< OF Q 
UESTIONS 

10010 DATA "HDW MANY HOMERS DID 

BABE RUTH HIT?" , "714" 
10020 DATA "WHERE IS THE 6RAND C 

AMYCN'?" , " ARI ZONA" 
10030 DATA "WHAT IS PI TO TWO DE 

CI HAL DIGITS?" , "3, 14" 
10040 DATA "WHO DISCOVERED THE T 

H i;; Y F F( e: i... a t i v rr y ? " , " e i m i 

EIN" . 

10050 DATA "WHERE IS THE SFHIHX 

LOCATED^" , "GAZA" 
10060 DATA "WHO WOM THE 1974 ST A 

N. L. E Y C ij F- ' , ' ■ P H 1 A D L P I A F L, Y E 

RS" 

1007 D A J A " H i-i A r ' s T H [;;; c; a f^- i t' a 

□ E N E W J EE R S E Y"" , " T F( E. iM T' ON" 
1 !£S B D A T A " W H A T ' S T H E: C A l^--' I T A L. 

F SPAIN':'" ,, "MADRID" 
li£)090 DATA "WHO WON THE DECATHf-i 

EON IN 1 976?" . "BR 

LJCE JEWNER" 
10100 DATA "WHAT IS THE SPEED OE 
LIGHT"" , "3E8" 



The RUN of the program should appear as follows; 



RUM 

i'y WHAT IS THE SPEED QF LIGHT? 

- = >3Ea 

CORRECT 

2> WHO WOW THE DECATHALON IN 1976'? 

> >3RtJCE JENHER 
CORRECT 

?; >■ W H A T- S T H E; C A i'- ■ I ■] A Q F H t W J E F? 3 £ V 

::=.:..r ' ■ F f< I KJ C E T D H 

HO, THE CUHRECT ANSWER WAS;: TRENTO^i 



Worksheet 5.2 Solutions 



Part I I : ' 1 ' ; ■ i i' ■ i-- ' I'uv" *** 

■ T'L! I 

■ ? L.ri^,lll' J i^L! I CFCEATE QUEST I OM & ANSiAiEF^ LISTS 

Ml ' nji\ 1 i ]!!:!, 

■ l,ii'.l!F: '.ciMjsrHi QUESTION AND REPLY 
C" GCi'.llL 'i'.;, L'Ln KEEP SCOFiE 

70 I^JEXT I 

99 fllMD 

100 REh 
110 iiEn 

1000 REI'I CIREATE F-<ANDDM QiJESriON S< ANSWER LISTS 
1010 REM 

1020 DIM Q$(10!;;DIM A$(10):REM ARRAY SIZE SFiOULD BE THE SAME AS MX 

1030 FiEAD MX 

1040 FOR r-I TiJ MX 

1050 READ TQ*,TA$ 

J. 6 e Q S U B 2 : R E M L., D C A T' E R A Li D Q M E M i^--' T Y F-' S :[ 1 1 H 

1 7 Q $ ( F^' [... ) T □ % : A $ ( F'-' L. ) T A * 
10^0 NEXT I 

1090 REFURN 
1100 REM 
1110 REM 

2 R E. M R A IM D 1^1 F' E, I "F ION G E N III R A T 12 
2010 REM 

2 2 R L„ I M "F ( F^; N 1 1 ( !;!) * Fl X + 1 ) 

2 5 I F- Q $ ( F^' L ; vL> " " T H E H 2 2 (;) 

2040 FcFXrURN 

2030 F-'ELi 

2060 REr^i 

E000 REM QUE SI ION AND REPLY 
:T010 ixEM 

302k) PR I LFF I ; " > " ; Q$ ( I) 
3030 INPUT "^=:=::L>:>" ; T5B 
3040 RL*^^^="CORRECrr" 

3050 IF T*<>A$(I) THEN RL$-="Na,, TF-IE CSRRECT AMSWE:R WAS:"+A$CI) 
3060 r-^'RINT RL..*;i Pi-LFNT 
E070 RE1-URN 
2:080 12 EM 
309 ii) F-<EM 

40i?i0 REI^'I SCORE ROUTINE 
4010 REM 

2 I E R L. % " C F^; R 12 C J ' ' T H IE H S C S ■■! ■ 1 
4- 3 I F I M X T' H E M P R I N T' " S C: l3 P EI " ; S C 
4- 6)40 FaTTIJRN 
4050 i=<EM 
4i;!60 REM 

I ' ) ' 1) , I ) I I NU 11 I I'l II: I 11 I ' 

1 1 Tm ■, M J J I Im' HuMi , ' I J ^ iM Ml I 1 14" 

"i L ' ' U 1 , 1 I I ' .1 1 , 

'It U I 1 I i UJfi L i 1 ,11 .14" 

I ' I J I L h It I i ! MM Y':' " , "EINSTEIN" 

1 II M ! 



IM J I I V , I ' I I ■" FLYER! 

i I. I I ' Qi'L' 

r 1 iL I 'J L) " 

' ' M i ' . RUCF J2NNER" 
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Lesson 5.3 



OBJECTIVES: a) to discriminate between runtime (syntactical and 
semantic) errors and logic errors 

b) to demonstrate the importance of hand-tracing for 
program development and debugging 



ASSIGNMENT: Read pages 5.12 through 5.20 Do review problems 4a, 4b 
Text problems 5,13,15,17,19 Homework problems 6,14,16,18 



The first debugging tool which a student should master is the 
technique called 'hand tracing'. The worksheets in this manual have 
emphasized hand tracing (e.g., exact output problems). 

See if students can agree on the output of the following program: 



10 A = 2 

20 B = -2 

30 FOR C = 1 TO 4 
40 A=A+B+C 
50 B=B+A-C 
60 PRINT A,B 

70 NEXT C 

80 END 



A common error students make is to take A as 2 the first time line 50 
is executed. You must remind students that a variable can only have 
one value at a time: the one most recently assigned. This can be 
emphasized by using the familiar variable boxes. Each time a variable 
value is altered, erase the old value and write in a new. For the 
sample program above, the boxes would appear as follows just prior to 
execution of line 50 . /) ft C 



3 d] 



The result of line 50 is now clearly -2 . 



Your students will find it most instructive if you use the boxes 
and the following chart simultaneously . The final result for the 
program above will be as follows : 



h 



-9 



s 



1 LI11E_^ 






















1 i 








^ 2Q 




pi -2 J 
















1 4il__^ 




















^ 




















{ .AQ 










L 51) ^ 


















































[ ^,0 _H 
















p. A 


































7 0-^3 











The table will always begin with zeroes. Also, in this program^ 
the final value of C will be 5. (Do your students remember why?) 

Students may desire to cross off the 'old* values so that the 
•most recent* value is always clearly evident. If your students find 
this sample easy , challenge them with the worksheet. 



A debuggin,g technique not specifically rnerstioned in the text is 
the simple inm-iediate mode PRINT. Variable values are retained in their 
respective boxes following program execution and are therefore 
availalDle for inspection. As an exairiple of this technique's 
usefulness, consider the following program which ( among other things) 
should count slowly from 1 to 10s 

10 FOR I - 1 TO 10 
20 PRINT I 

30 REM 
4 REM 
50 REM 

60 FOR I = 1 TO 2500 

70 NEXT I 

80 REM 

90 REM 

100 REM 

110 NEXT I 

RUN 

1 

?NEXT WITHOUT FOR ERROR OJi 110 

PRIMT I 

2501 



Worksheet 5.3 



Part I Use the table to hand trace the output of the following 
program: 

10 A = 2 



20 X=X+y+A 

30 FOR J = 1 TO X 
40 Y=y*X+l 

50 NEXT J 

60 IF A < THEN 80 

70 A = -2: GOTO 20 

80 PRINT X,y 

90 END 



Pi 


X 











Part II Locate and correct the logic error in the following program: 

10 REM AVERAGE 5 NUMBERS 

20 FOR I = 1 TO 5 
30 INPUT X 
40 S = S + X 

50 NEXT I 

60 PRINT "THE AVERAGE IS" j S / 5 

70 INPUT "TRY AGAIN (Y/N) ?";A$ 

80 IF A$="Y" THEN 20 

90 END 



Part III Determine the immediate mode output missing from the 
following sequence (i.e. fill in the boxes): 

10 FOR I = 1 TO 5 
20 READ X$ ( I) ,X$ (I - 1) 
30 IF I = 3 THEN STOP 
40 NEXT I 

50 DATA APE, BAT, CAT, DUCK, EEL, FISH, GNAT, HARE, LLAMA, MOOSE 
RUN 

BREAK IN 30 
PRINT X$( I) 



] 



CONT 

PRINT X$(I) 
1 " 
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Worksheet 5.3 Solutions 

Part I 







y 





<p 






X 






/ 


/ 




r 






31 



RUN 

3 31 



Part II The program executes perfectly the first time through. 

However , if the user selects ' Y ' at 1 ine 70, a logic error 
ensues. The sum S in line 40 continues to increase beyond 
the total of the first five numbers. The variable must be 
'reset' by changing line 80 to 

80 IF A$ = "Y" THEN 15 

and adding 

15 S = 

Part III EEL 

<BLANK> 
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chapter 5 Supplementary Problems 



1) Design and debug a program which simulates the movement of a 

prince lost in the darkness of Castle Dracula. Use the following 
specifications : 

The Board 

a) The castle floor is made of a 10 * 10 matrix. 



b) There is an invisible wall around the castle which can 
not be passed through (check for subscript out of 
range) , 

c) Randomly place 2 piles of treasure on the castle floor. 

d) Randomly place 3 trap doors on the castle floor. 

e) Randomly place 1 escape door on the castle floor. 

f ) Assign the prince the starting position of (2,3) . 

g) Assign any empty elements to the value "*" . ( see figure 
1) 



The Game 

The object of the game is to collect both treasure piles and 
leave via the escape door. After a move replace the value of 
the old position with a "*" and the new position with a "P" . 
Remember to check the value of the new square before 
replacing it. 

A player may move north, south, east or west and has the 
option of lighting a match to see the adjacent positions (see 
figure 2) . He is limited to 5 matches . If a player moves 
onto a trap door , he perishes and the program is over . 



* 

T 

D 
E 
P 



it of B< 
empty 
treasure 
trap door 
escape door 
prince 



A List of Variables 

B$ (x ,y) = Board positions 

M = matches 

T$ = temporary (hold values) 
X = row 
Y = column 
T = treasure 



When the prince finally exits the castle, print out the 
appropriate message . 



TRAP DOOR! YOU ARE EATEN BY CROCODILES. 

PASSAGE TO OUTSIDEl YOU FOUND NO TREASURES, SORRY. 

PASSAGE TO OUTSIDE! AMATEUR - YOU FOUND 1 PILE OF TREASURE 

PASSAGE TO OUTSIDE! PRO - YOU FOUND BOTH PILES OF TREASURE 

Above all , be sure to use the programming techniques set 
forth in Chapter 5 when attempting this program. Your 
program should be neat and the logic should be easy to 
follow. If your program contains m.any errors and is not 
well-structured, you will find that debugging will take a 
long time. 
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********* 
**p****** 

■kYj*****'T* 
********* 
********* 
*****j]*** 
***Q***** 
********p 

**r|-i****** 
********* 

fig 1 



D * 

f iq 2 

3 e 2 ^ 



The following programs contain errors, including at least one 
logic error each. Find the errors and correct them; 



a) 10 REM CREATE A LIST OF 20 RANDOM 

20 REM NUMBERS BE'WEEN 1 AND 100 

30 REM WITH NO DUPLICATES 

40 FOR I = 1 TO 50 

50 T = ( INT ( RKD (1) * 100) + 1 

60 FOR J 1 TO I 

70 IF T = X(J) THEN 20 

80 X(I) = T 

90 REM PRINT LIST 
10 FOR J = 1 TO T 
110 PRINT X(J) 
120 NEXT J 



b) 10 REFi ALLOW A CLUB U'JOUNCER' TO 

20 REM VERIFY THAT A PERSON REQUESTING 

30 REM ADMISSION ACTUALLY BELONGS TO 

4 REM A VERY EXCLUSIVE CLUB. 

50 INPUT "INITIALS OF PERSON REQUESTING ADMISSION"? |ADM$ 

60 FOR I = 1 TO 20 
70 READ VIP$ 

80 IP ADM$ = VIF$ THEN PRINT "O.K. LETyADM$; "ENTER" 

90 NEXT I 

100 PRINT "NOT ALLOWED IN"; GOTO 50 

1 1 DATA JC E , JML , MAL , EJ E,YDE ,, MP E , AFC , RG E , ELW , J RD , LPE , BBM 

PPP J SKB s KFVi f SDB , PDQ , APP , JDF 

Write a program to move a knight randomly or a chess board {8x8} , 
The knight cannot go off the board.,- Use a RND stateir-ent to get a 
random number between 1 and 8, Use ON. , .GOSUB to check and plot 
the knight's new position. Count the number of iiioves the knight 
takes and print out the beard with the nuiaber of each landing 
point in its appropriate square. Start the knight at the point 
(4,4) with starting value of 1, if the computet picks 10 invalid 
Rfoves in a row'f considei: the simulation over. 



apter 5 Supplementary Problem Solutions 

10 DIM B* i 1 1 , 1 1 ) 

20 REM FILL THE GKIO WITH ASTER tSRS 

Z0 REM 

40 FOR X=l TO 10 

'";0 FOR Y = l JU 10 

60 E* ( X , Y) * " 

70 NEXT Y 

30 NEXT X 

9 fit REM 

100 REM POSITION TRAP DOORS 



110 F! 


JR X- 


1 TO i 






1 1' 


R (X) 


= INT ( 10*RND 


■! ) + i ) 


1 70 


OCX) 


= I N T' ( 1 


0*RND (( 


i) ) H ) 


1 40 


IF X 


=1 THEN 


130 




150 


FOR 


1=1 TO X 






160 


I F 


R ( X ! =R I 


I ) AND 


C ( X ) 




NEXT 


I 






1 30 


READ 


F* 






1 S'0 


B t ( R 


(A) , P (C) 


i =Ft 





200 NEXT X 

;;i« DATA "T" , "T" . "D" , "D" , ' D" , "£•' 

220 R1^2:C1=3 

2"''0 SF=l:GaTO 40(;!0 

1000 PRINT "YOU ARE ";S»! AT RDW":R1;": COL" 5 CI 
1010 PRINT "YOU HAVE COLLECTED -jTs" TREASURE < 3)" 
1020 PRINT "WHERE WOULD YOU LIKE TO MOVE" 
1030 PRINT 

1040 PRINT " a ) NORTH" 

1050 PR INT " (2) SOUTH" 

1060 PRINT " (3) EAST" 

1070 PRINT " (4) WEST" 

1080 PRINT "'5) LIGHT A MATCH" 

1090 PRINT 

1100 PRINT "WHERE TO, BOSS ===>>"; 
1110 INPUT D 
1 ] 20 PRINT "CHOICE-" ; D 
113-3 IF D.l OR D>5 THEN 1030 
1140 ON D eOSUB 2000,2010.2020,20361,3000 
1_ -. Tl t 00 

t J i < 1=0: RETURN 
^ i =0: RETURN 

RI =1: RETURN 

1^ I s L ="1: RETURN 

PRINT F ri.:-4 THEN PRINT "OUT OF M ATCHES . . . " : PR I NT : S* = " ST ILL " : GOTO 1000 
-fl F~'R R 1 TO 1 

) hi R 1 ra 1 

II- R=^0 AND C=0 THEN PRINT "P " ; : GOTO 3060 
"1 K^INT BS (Rl+R.Cl+C) ; " "5 

16 ■'T L 

II- t- J 
S JF^»T 1 
" FFINI 
M ri 1 

' fF'-NT YOU HAVE ":5-M:" MATCH (ES) LEFT" 
1^ NT :iDTO 1000 

4 I^ ri- i..>10 OR Cl+Cia THEN 5130 

I ] IF 1 Fr 10 OR Rl+RKi THEN 5130 
" IS I W" 

1 Ei^ d AL MOVE 
P r 

f- 1 f- I ; C1=C1 '-CI 

M 

M r It Cr- SPOT 
FM 
L'1 

n ? l.i'l ^'"'-.F'-;' "-t. i -1. . ^ « .FfINT tT'^sr'^' ^F* :=FINT:60Ta 1000 

L% t ' 1 ► E •■ i iCQp c-pi. Fm-^lN B "'FO HDILES. " :END 

r r T ' I , ' . ^ - i _ J£ i . ■ SU r ) "if 



2) The corrected lines should look like this: 

a) 40 FOR I = 1 TO 20 

50 T = INT (RND(O) * 100) + 1 
60 J = 1 

55IFJO I-l THEN J = J + 1: GOTO 8 

5 5 IF I = 1 THEN 8 

70 IF T = X(J) THEN 85 

85 NEXT I 



b) 50 INPUT "INITIALS OF PERSON REQUESTING ADMISSION " ; ADM$ 
55 RESTORE 
5 FOR I = 1 TO 19 

80 IF ADM$ = VIP$ THEN PRINT "O.K. LET " ; ADM$ ; " ENTER" 
110 DATA JCE , JML , MAL , E JE , YDE , MFE , AFC , RGE , ELW , JRD , LPE , BBM , 
PPP , SKB , KFW , SOB , PDQ , APP , JDF 
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REi" SUPF'LEM£i.ri hRv PROBLEM ^'1, 
REM ; NIGSH ; ' S TOUR 

• 1 13L h "f^-vir !»■ r, tg selEC" 

' Fl , t.^vE 

' tE . " , . . 3i:/S, 750 , 413. 4 



E , E 1 i;) 



f EE-' hEri . SET-UP 

, ^ X 1 r 3 

-r „ T-Q 8 
I B , > J =13 

iE;;i NEXT x 

:4-0 M = f'H 

jEji£i w-ii; 



■wIE 
1-.^ T 



EE 



RET NT-OUT 
25-. PR I NT : NEXT 



rci 8 

tP,E ' Z) : B ( X , v ) ; 



E ' T-" ' -J .';+ 1 ; GET CJ 



■iLEi E;Eiu^-INE' 

THEN W = L«+1 : RETURN 



" "E ^ 'J+ 1 : 50 TE 7;,; 



'J ^ : ; EGTE "'fc- 



chapter 5 Test 



Part I 
a) 



b) 



Part II 
a) 



b) 



c) 



Determine the exact output of the following programs: 



10 : 


X = 1 c) 


10 


X = 6 




20 


ON X GOTO 100,200,300,500 


20 


ON (X-3) GOSUB 50 


,60,70 


100 


PRINT "A"; 


30 


IF X <> THEN 20 




200 


PRINT "B"; 


40 


PRINT "MY": END 




300 


PRINT "C"; 


50 


PRINT "M";:X = 5: 


RETURN 


400 


X = X + 1: GOTO 20 


60 


PRINT "0"; :X = 0: 


RETURN 


500 


END 


70 


PRINT "M"; :X = 4: 


RETURN 




d) 


10 


FOR V = 1 TO 4 




10 


1 = 4 


20 


READ A,B 




20 


ON I GOSUB 50,60,40,70 


30 


IF B = THEN 


STOP 


30 


PRINT "END": END 


40 


S = (A + B) / 


B 


40 


PRINT "A": RETURN 


50 


PRINT A,B,S 




50 


PRINT "B": RETURN 


60 


NEXT V 




60 


PRINT "C": RETURN 


70 


DATA 2,1,4,2,6,3 


/8,0 


70 


PRINT "D": RETURN 









Circle the programming error(s) within each program. Explain 
what must be done to correct the error. If no error exists, 
state so. 

10 FOR J = 1 TO 4 
20 READ I,J,K 
30 PRINT I+J+K 

40 NEXT J 

50 DATA 7,3,19,201,6,28 

60 DATA 0,117,42,37,201,5 

10 FOR J = 1 TO 4 
20 READ I,J$,K 
30 PRINT J$ 

40 NEXT J 

50 DATA 2, SUGAR, 9, 8, SWEET, 14, 3 

60 DATA 17, SOUR, 5 

10 GOSUB 50 

20 PRINT A$ 

30 GOSUB 100 

40 PRINT B$ 

50 READ A$,B$ 

60 RETURN 

70 DATA JOHN, BARB, BENNY, ALICE 

10 REM PRINT OUT A TABLE OF NAMES 

20 REM AND PHONE NUMBERS 

30 PRINT "NAME" , "NUMBER" 

40 PRINT " "," " 

50 FOR I = 1 TO 4 
60 READ N$,T$ 
70 PRINT N$,T$ 

80 NEXT I 

90 DATA "MARC I ETHER" ,777-6666 , "FANNY FUTZPATRICK" , 666-5555 
, "MARY J ONES", 555-4444, "BIRDIE SONG" , 444-6666 

5.31 



Part III Write each of the following proc; rams as concisely as 
possible: 

a) Write a program which will attempt to find integer values of 
X and Y between -10 and 10 which satisfy the following 
equation: 

X Y 1 

- + - + = (X * Y) "2 

Y X X+Y 

using STOP. . .CONT to prevent the program from end ing in the 
event that a divide by zero error occurs . Make sure you are 
able to change the value of X or Y and continue with 
processing . 

b) Write a program which will have the user input a number that 
will represent a yearly income for am employee of XYZ 
Manufacturing . Using subroutines rather than IF... THEN 
statements to execute branching , have the program print out 
the taxes for that employee based upon the following 
schedule: 



Allow for an income only between 10000 and 49999.99, 
inclusive . 

RUN 

SALARY? 40000 
40000 16000 



10000 
20000 
30000 
40000 



19999.99 
29999.99 
39999.99 
49999.99 



10% 
20% 
30% 
40% 



READY. 



Chapter 5 Test Solutions 



The credit for each problem is given in brackets [ ] . 

Part I [ 5@ = 20 ] 

a) RUN c) RUN 

ABCBCC MMOMY 



b) RUN d) RUN 

D 2 13 

END 4 2 3 

6 3 3 

BREAK IN 30 



Part II [ 5(3 = 20 ] 



a) Line 20: J is used as the loop variable so it shouldn't be 
in the input list. 

b) Line 50: A value for K will create a SYNTAX ERROR during the 
3rd iteration of the FOR... NEXT loop. 

c) There is no line 100 to GOSUB to. Also, 55 END is needed. 



d) No errors. 



Part III 



a) 10 PRINT "A" ,"B" ,"EQUAL" 

20 FOR X = -10 TO 10 

30 FOR Y = -10 TO 10 

40 IF Y = THEN STOP 

50 IF X = THEN STOP 

60 IF (X + Y) = THEN STOP 

70 A = (X / Y) + (Y / X) + (1 / ( X + Y) ) 

80 B = (X * Y) " 2 

90 PRINT A,B, 

100 IF A = B THEN PRINT "Y":Z = Z + 1 

110 NEXT Y 

120 NEXT X 

13 IF Z = THEN PRINT "NO SOLUTIONS FOUND" 

140 END 



b) 10 INPUT " SALARY" ;S [ 30 ] 

20 T = INT(S/10000) 

30 IF T < 1 OR T > 4 THEN 10 

40 ON T GOSUB 70,80,90,100 

50 PRINT S,X 

60 END 

70 X = S * .1: RETURN 

80 X = S * .2: RETURN 

90 X = S * .3: RETURN 

100 X = S * .4: RETURN 
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Chapter 1-5 Examination 



Part I Multiple Choice 



Determine the best response and place the corresponding 
letter in the blank . 

1 ) Consider the following program: 

10 READ A$ 

20 DATA "CALLISTO" 

30 PRINT A$ 

40 DATA " EUROPA" , " 10, GANYMEDE" 
50 GOTO 10 

How many times will the computer execute line 30 before 
an error message is printed? 

a) 1 

b) 2 

c) 3 

d) 4 

e) 5 

2) If the command 

PRINT "LIST" 
is executed, the computer will : 

a) display the word LIST on the screen. 

b) print a list of the program currently in memory. 

c) print an error message. 

d) do nothing until "RUN" is entered, then print the 
word LIST. 

e) do nothing until "RUN" is entered, then print a 
1 ist of the program currently in memory. 

3) Which of the following statements is permissible on the 
Commodore? 

a) IF X = 5 OR 6 THEN PRINT X 

b) IF X = 5 OR IF Y = 7 THEN PRINT X,Y 

c) IF Y = 17 GOTO 100 

d) IF X = Y = Z THEN PRINT "TRUE" 

e) None of the above statements are permissible. 

4} The major difference between GOSUB and the GOTO 
statement is that GOSUB permits use of 

a) RESUME d) RETURN 

b) another GOTO e) ONERR 

c) another GOSUB 
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5) 



Determine the output of the following sequence: 



10 FOR L = 1 TO 5 

20 IF L = 3 THEN STOP 

30 1=1+1 

40 NEXT L 

RUN 

BREAK IN 20 
PRINT I 

a) 2 b) 3 c) 4 d) 5 e) 6 

6 ) Which of the following choices prints one random integer 
between 2 and 11 , inclusive? 



a) 


PRINT 


INT ( RND (2) * 11) 


b) 


PRINT 


INT ( RND (0) * 10) +2 


c) 


PRINT 


INT ( RND (0) * 9) +2 


d) 


PRINT 


INT ( RND (0) * 10) * 2 


e) 


PRINT 


INT ( RND (0) + 9) * 2 


The 


Statement INT (X / 100 + .5) * 100 


a) 


Rounds 


X to the nearest integer . 


b) 


Rounds 


X to the nearest tenth . 


c) 


Rounds 


X to the nearest decade . 


d) 


Rounds 


X to the nearest hundredth 


e) 


Rounds 


X to the nearest hundred. 



8) Which of the following immediate mode listings does not 
return the value zero (0) ? (all listings are preceded by 
NEW) 

a) PRINT X 

b) X = 1: PRINT POS(O) 

c) X = 1: PRINT X * Y 

d) CLR : PRINT X 

e) CLR : PRINT TI 

9) Taking into consideration the computer ' s rounding 
errors , which of the following IF statements will print 
a result? 



a) 


IF 


3T3 = 


3*3*3 THEN PRINT "3t3" 


b) 


IF 


3T2 = 


3*3*3 THEN PRINT "3t2" 


c) 


IF 


2T3 = 


2*2*2 THEN PRINT "2^3" 


d) 


IF 


5t2 = 


5*5 THEN PRINT "5t2" 


e) 


IF 


7T3 = 


7*7*7 THEN PRINT "7T3" 



10 ) Based on the schematic array at right , which of the 
following is a t rue statement? 



a) A(l,l) = 7 

b) A(l,3) = 7 

c) A(3-,l) = 7 

d) A(2,4) = 7 

e) A(4,2) = 7 
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11) Determine the output of the following program: 



10 FOR X = 1 TO 3 

20 FOR Y = 1 TO 4 

30 NEXT Y 

40 NEXT X 

50 PRINT X; "T";y 

a)3T4 b) 4 T 3 c) 4 t 4 d) 5 T 4 e) 4 T 5 

12) Which of the following statements will erase the current 
prog ram in memory? 

a) CLR 

b) RESTORE 

c) GET 

d) POS 

e) NEW 

13) Four of the following expressions have the same value. 
Which one is different? 

a) 3t2-l 

b) 6*2+4/2 

c) 2+2*3 

d) 4+2+6/3 

e) 2T3 

14) In four of the cases below, if the first command is used 
in a program, the second is almost always used also . In 
which case does the second command have no relation to 
the first. 

a) FOR. . .NEXT d) INPUT. . .RESTORE 

b) READ. . .DATA e) STOP. . .CONT 
C) GOSUB. . .RETURN 

15) You suspect a programming error in a program of which 
part is shown below: 



You would like to determine the value of X before it is 
multiplied by H in line 150. Which of the following 
diagnostic techniques should you use? 

a) RESTORE 

b) POS(O) 

c) Run the program and press RUN / STOP after line 140 
executes . Then type PRINT X in immediate mode . 

d) Run the program and press CTRL-C just after line 
140 executes . Then type PRINT X in immediate mode . 

e) Add line 145 STOP, run the program, and then type 
PRINT X in immediate mode . 



140 Z 
150 X 
160 Y 



R t 2 
X * H 
Z + X 
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Part II Exact Output 



Determine the exact output of each of the following programs: 

1 ) NEW 

10 PRINT "RAIN" 
20 PRINT "SNOW" 

NEW 

10 PRINT "SLEET" 
30 PRINT "FOG" 
10 PRINT "HAIL" 
RUN 

2) 10 FOR I - 1 TO 3 
20 READ X,X$,X( I) 

30 NEXT I 
40 PRINT X$ 
50 PRINT X 
60 PRINT X(2) 

70 DATA 10, ACE, 3, 2, JACK, 8, 17, QUEEN, 4 

3) 10 X = 1 

20 FOR I 4 TO 8 STEP 2 

30 IF I T 2 < 40 AiND (1-8) > (-1 * 1) THEN PRINT I| 
40 X = X + Y 
50 Y = X * 2 

60 NEXT I 

70 PRINT X,Y 
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Part III Locate the errors 



Circle the programming error (s) within each program given. 
Explain what must be done to correct the error. If no error 
exists, state so. 



1) 10 REM FIND THE SUM OF 2 NUMBERS 

20 INPUT NUMl 

30 INPUT NUM2 

40 TOTAL = Nl + N2 

50 PRINT "THE SUM IS j TOTAL" 

6 END 



2) 10 REM PRINT THE VARIOUS RANDOM NUMBERS 
20 FOR I = 1 TO 4 

30 READ L 

40 PRINT "A RANDOM NUMBER BETWEEN AND" ; L; " IS" j 

INT ( RND (0) * L) + 1 

50 NEXT L 

60 DATA 2,25,100,1000 

7 END 

3) 10 TELL WORD FOR INTENDED NUMBER FROM 1 TO 4 
20 INPUT "ENTER A NUMBER FROM 1 TO 4";N 

30 ON N GOTO 50,60,70,80 

40 IF N<1 OR N>4 THEN 20 

50 PRINT "ONE" 

60 PRINT "TWO" 

70 PRINT "THREE" 

80 PRINT "FOUR" 

90 END 
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Part IV Programs 



Write each of the following programs as concisely as 
possible. Good programming style is important. 

1 ) Write a program which will print a list of 20 random odd 
integers between 10 and 100 , inclusive . Do not print 
any even numbers and do not print any nuriber more than 
once . 

2) Write a program based on the following outline: 

a) Have the user enter an integer from 1 to 12 
representing his or her month of birth. 

b) Have the user enter an integer from 1 to 31 
representing the day he or she was born . 

c) Subtract the smaller from the larger ( If alike, 
result is 0) . 

d) Divide the result of c by 2, add 1, and round off 
the result to the nearest integer . 

e) If the result is not between 1 and 5 , inclusive, 
repeat step d. 

f ) Print one of the following five 'pre-divined ' 
fortunes based on the result in step e . 

i. You will inher it a fortune! 

ii . You will fall in lovel 

iii . You will find much happiness I 

iv. You will make a great discovery 1 

V. You will receive a 90 on this test I 
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Chapter 1-5 Examination Solutions 



The credit for each problem is given in brackets [ ] . 
Part I [ 2@ = 30 ] 

1) C 6) B 11) E 

2) A 7) E 12) E 

3) E 8) E 13) B 

4) D 9) C 14) D 

5) A 10) A 15) E 

Part II [ 5@ = 15 ] 

1) HAIL 3) eBibbbbbm^tmbtmis 

FOG 

2) QUEEN 

17 
8 

Part III [ 5@ = 15 ] 

1) i. NUMl and NUM2 represent the same variable on the 

Commodore and should be changed to Nl and N2. 

ii. The variable name TOTAL contains the reserved word TO; 
change TOTAL to just T. 

iii. Line 50 contains a misplaced quotation mark and should 
be PRINT "THE SUM IS";T . 

2) i. Line 50 should be NEXT I. 

ii. INT ( RND (1) * L) + 1 will generate random numbers 

between 1 and L, not and L. Rewrite as INT ( RND (0) 
* (L + 1) ) . 

3) i. "REM" is missing from line 10. 

ii. Line 40 must precede line 30; therefore, swap the two 
lines . 

iii. Lines 50/60 and 70 must each have ':GOTO 90' appended. 
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Part IV 

1) J.0 DIM !<(20) 

20 FOR I -= 1 ro 20 

30 i<(I) INT(F?ND(0) * 91 + 11) 

40 IF" !< ( I) / 2 INT(K(I) / 2) THEM 30 

5!?! 0. =■■ i 

60 IF' I = 1 THEN 90 

70 IF' K(I) KCQ) THEN 30 

30 IF e <> I 1 "n-ii::N Q =^ Q + l;; goto 70 

90 NEXT I 

100 FOR T 1 TO 20 
110 PF<INT K(T) 
120 NEXT T 
130 END 



2) 10 INPUT "ENTEF? MONTH OF BIRTH" ;H 
2 13 I IM R U "I" ' ' E N T IE R D A Y F B I R J Fl " ; D 

3S;) IF D > M THEN C D Ms SOTO 50 

4-0 C N D 

50 C INTtC / 2 + 1,5) 

60 IF' C > 5 OR C < 1 TFiEN 50 

'70 F'OF? IB 1 "I C 

80 READ m 

90 IxiEX 'i" R 

100 ERIN'!' M: 

J, 1 D A 'i" A "YC: U W ]: l... L 1 1\| F-l E R I Y A F' F'^: T I J l\i IE ' ' ' 

:l. 2 D A "i" A ' ' Y C) LJ W ;[ L L. F A L. L I t-l L Q V E ' " 

1 :3 D A r A " Y Li U W I L., L F' I IM D I'-i L! C H H A R P .[ R E. R S < ' ' 

1 4 D A "T' A " Y Ci U HI I... L M A R IE A G R E A "F D 1 S C Q 9 IE Y ' " 

1 5 D A T A ' ' Y (;:■ U N 1 R L. IE EI (J J. E 9 E A 9 N T H 1 S T IE S "i " ' 

160 END 
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Lesson 6 J 



OBJECTIVES: a) to apply the Con-imodore-64 ' s ability to display a 
multitude of shapes and colors 

b) to apply the use of cursor control iBoveriient for 
both editing programs and screen control 



ASSIGNMENT; Read pages 6.1 through 6.8 Do review problems 1-2 
Text problems 1^7,11 Homework problems .2,8^10 



The Commodore has the ability to print text in a variety of colors 
which can be altered immediately by depressing the CTRL or 
(Commodore) key along with a number key , ranging from 1 to 8 . 
However, you must emphasize that if the cursor is within quotation 
markSf such as in a PRINT or assignment statement, a unique graphic 
code will be displayed instead . The cursor movement keys and the 
reverse on and off keys will also generate unique graphic symbols when 
used within quotation marks. 



As programs become more elaborate and as the quantity of programs 
on a disk increases , it becomes more and more difficult to recall what 
each program did (or was supposed to do) . Internal documentation with 
REM statements is useful and important . A second technique , valuable 
during program execution, is the use of a program ' header ' . The 
header should announce to the prog ram user the name of the program, 
the author , the date the program was written and the date it was last 
revised . 

Have students suggest a header design. Lay out the header using a 
grid. Be 1 iberal with blank lines and center the information on the 
screen. A sample is given on page 6.2. The program used to produce 
the header shown on that page is as follows : 

10 PFn:MT "TV; 

2 (0 i-i ^ ' ' i-i ie: a d !::;; r d e m o im s t f< a t i on": l. ^= 2 

30 PRINT;; PRINT;; PF-';INT 

40 PGR 1=^1. TO (21 INT (L/2) ) 

'50 PRINT " ":; 
60 NiEXT I 
70 PRINT H* 
00 REM 

9 H = ' ' N R 1 1 T E: N BY: .1 Q PI N WANG";; L. 2 1 
100 PRINT;; PRINT 

1 10 FOR I-l TO (21 INT (L/2) ) 

120 PRINT " 
i'50 NIEXT I 
m-0 PRINT 1-1$ 
150 RE PI 

160 Dl*-^" 7/6/84" 
170 D2*="7/24/84" 

1 S F-' R I N T : F R I N T ;; I- R I N T 1; F R I N T ;; F' R I N T" : I- R I N T' 
190 PRINT " DATE OF GREAT' I ON:; ";iDl* 

->o\(n PRINT " DATE OF LAST REV: " j D2* 

6.1 



Notice the variable L in 1 ines 20 and 70 . This variable represents 
the string length { in characters) of the program name and then the 
author ' s name. (Re-using var iables is an effective practice. ) As the 
program is revised , 1 ine 130 is easily changed . The entire segment 
can be used at the beginning of any program. The programmer need not 
retype the entire segment . Instead , only 1 ines 20 , 120 and 130 need 
to be modified . 
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6.2 



Worksheet 6.1 



Part I Determine the exact output of each of the following programs 

a) 10 FOR I = 1 TO 1000: PRINT " 81" ; : NEXT I 

b) 10 FOR I = 1 TO 10 
20 FOR J = 1 TO I 
30 PRINT "X"; 
40 NEXT J 

50 PRINT 

60 NEXT I 



Part II 



Write a proqram to print all 16 colors in vertical columns 
as shown below using only one print statement; 



Worksheet 6,1 Solutioos 



Part I 



a) RUN 

(wait) 
READY, 

b) XXXXXXXXXX 
XXXXXXXXX 

xxxxxxxx 
xxxxxxx 
xxxxxx 
xxxxx 

xxxx 

XXX 
XX 

X 



20 pr.i:mt' "'"ii li m n,: :i m m ni ^ ?s 's'l m ii n 

30 NEXT I. 
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Lesson 6.2 



OBJECTIVES: a) to apply PEEK and POKE commands for screen control , 
lowercase mode, foreground color and screen memory 

b) to apply the joystick in programs 



ASSIGNMENT: Read pages 6.9 through 6.25 Do review 3-6 

Text problems 3,5,13 Homework problems 6 , 12 



PEEK and POKE are functions that allow the user to see what a 
value a particular byte of memory contains and to change the value of 
a byte in memory. The following program introduces the use of PEEK 
and POKE: 

10 POKE 52380, INT (15*RND(0) ) : REM BORDER 
20 POKE 53281, INT(15*RND(0) ) : REM BACKGROUND 
30 GET A$: IF A$ = THEN 30 
40 IF A$<>"E" THEN 10 

This program will allow the user to choose a suitable border and 
backg round color by continually displaying random combinations until 
the key ' E ' is pressed . The statements in lines 10 and 20 POKE random 
values between and 15, inclusive, into memory locations that 
determine the colo r for the border and the background , respectively. 

You may decide not to cover the material in the text on joysticks . 
If you do wish to , the discussion in the text should be adequate . 
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Worksheet 6.2 



Part I Describe what each of the following programs would do if they 
were run: 

a) 10 PRINT TJ"; 

20 FOR 1=1 TO 1000 

30 PRINT " n" ; : REM MOVE CURSOR UP 
40 NEXT I 

b) 10 FOR 1=1 TO 50 
20 PRINT 

30 NEXT I 

40 PRINT "cil" ; 



Part II Write each of the following subroutines as concisely as 
possible: 

a) Often in a program you will need to tab to a certain position 
on the screen , so write a subroutine where the variables X 
and Y are the coordinates . (Use only cursor movement keys.) 

b) Because the above subroutine is quite slow, especially if you 
are tabbing to (39,24) , you will need to think of a faster 
routine. Examine the table on page 6.10 and rewrite the 
program using that information. (Hint: PEEKs and POKEs) 
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Worksheet 6,2 Solutions 

Part I 

a) This program will produce the same output even if 1 ine 20 
were omitted. 

b) This program clears the screen and moves the cursor to home . 
Part II 

a) „■ . 1 • ;;i ' ■ 
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Lesson 6.3 



OBJECTIVE? a) to apply the sound capabilities of the Coiniuodore-64 



ASSIGMMENTj Read pages 6.26 through 6.34 Do review 7-8 

Text problem 9 Homework problem 4 



Wnen writing prograir.s that use Pt-'^K' „'-iJ POKEs, you will find 
y-..nrselt continually referring to a .Si^c fur merriory locations. One 
way to reduce the aee of PEEKs and FO' ' s « to a inio iini ae silly 
errors, that can occur is to i:ncorpor>'* <^ i ^ >r tc and PEEKs into a 
sub rou tine ^ as below: 
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Worksheet 6.3 



Carefully analyze the following program which turns the computer 
keyboard into an organ and then write a line by line description 
of what each line does. 

1 D I M B* ( 40 ) , S ( 40 ) ; PFi: I MT " H" : K=^:i;4 

20 FOR TO 7 

Z0 F<EAD Ad) 

40 NEXT I 

50 FDR 1=1 TO K 

60 READ G* < I ) , S ( I ) 

70 NEXT I 

80 GET A*: IF A*-"" THEN 80 
90 GGSLJB 12000 

100 FOR 1=1 TO K 

110 IF A*=^S$(I) THEN 140 

120 NEXT I 

130 GOTO 80 

14gs Ad) :^^S ( I ) 

1S0 GOSUB 10000 

160 GOSUB 11000 

170 GOTO S0 

1 D A r A J. , , 15,0 , ,15, :::: 3 

1 1 DATA Z , 2 1 45 , G , 2273 , X , 2408 ,, D , 255 1 , C ,, 2703 , V , 2864 , 8 ,, 3034 
1 020 DATA B ,, 32 1 5 , 14 , 3406 ,, N , 3608 ,, J , 3823 , N , 4050 , " , " ,, 429 1 

1 030 DATA L , 4547 , " . " , 48 1 7 , " : " , 5 1 03 , " / , 5407 

1 040 DATA a , 429 1,2, 4547 , W , 48 1 7 , 3 , 5 1 0Z , E , 5407 , R ,, 5728 , 5 , 6069 , 

T, 6430, 6, 6812, Y, 7217 
1 0'50 DA T A 7 , 7647 , U , 8 1 01,1, 3583 ,, 9 ,, 9094 , ,, 9634 , , 9634 , P , 1 0207 

9999 END 

10000 RE 1-1 

10010 REh POKE ARRAY INTO MENORY LOG. 
10020 REM 

10030 REM Ad),.. T ONE 

10040 REM A (2) „ . ., ATTACK 

10050 REM A (3) . . . DECAY 

10060 REM A (4) ... SUSTAIN 

10070 REM A(5) . , . RELEASE 

10080 REM A(6)„.„PEAK VOLUME 

10090 REM A(7)„„.SGND CONTROL REGISTER 

1 1 00 F1JKE 54272 , Ad) I NT (Ad) /256 ) il<256 ;; pr)H:;E 54273 ,, I NT (Ad) 

7256) : REM ■'rONE 
1 1 1 POKE 54277 , A ( 2 ) * 1 6 + ( 3 ) s REM AT TACK AND DECAY 
:l. 1 2 F' i<: E 5 4 2 7 a ,, A ( 4 ) * 1 A ( 5 ) ;; R IE M S U S T A I M A N D P. IE L.. IE A S E. 
1 1 S;) i-' K: E 5 4 2 9 , a ( 6 ) ^ I-^ IE M V O L l.J h E. 
1 0140 RETURN 
1 1000 REh 

11010 REM TURN ON SOUND 

I 1.020 r&:m 

11030 POKE 542Y6,A(7) 

:i 10^H-0 RiETURhi 

12000 REM 

12;;i:l.0 i-^EM TURN OFF" SUiJND 

12020 REM 

:i 2 p k; !E s 4 2 7 ti , a ( 7 ) and 254 

1204-0 RE rUF;N 
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Worksheet 6,3 Seliifkifi^^ 



LIKE .10 ; M- : ' - - .'i , \ 

each separate note,: 



LIKiE 20; Beom locp. 

I.IIv- j'.ir R«-ad IT' Tone, Attack i- Decay. 

LINE 40; xC:-... 

LIME 5Ci Beain iocp, 

LINE dC: Re.30 sja k^yys .^nc' res oopd 

End l.i'Op, 

LIhE 8G; Wair fnr ;;np:.o.. , 



t-O ttl 



LINE J C- .= A . ; ;)Nft 



'5'L'. Ti » Lr'Vi'K,^r' k?"?C3'.' 



Li! f i LU v - i 1 



LTL-. 1 ::00;-- U,i-i 



Chapter 6 Supplementary Problems 



1) Write an etch-a-sketch program where the user manipulates the 
joystick to move the cursor in any of 8 different directions, 
plotting an asterisk in foreground color if the joystick button is 
pressed , 

2) Write a program employing the sawtooth wave that acts as a siren . 
Allow the frequency to "slide" back and forth between the C and D 
in the 6th octave . Consult the chart on page 6 . 27 for tone codes . 
Be sure to set the ADSR envelope to allow the sound to be heard . 
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Chapter 6 Supplementary Problem Solutions 



1) 10 X=0:Y=0: PRINT "n"; 

20 B=15-PEEK (56321) AND 15) : IF J=0 THEN 1000 

30 ON J GOSUB 100,200,0,300,400,500,0,600,700,800 

40 IF X>39 THEN X=39 
50 IF X<0 THEN X=0 
60 IF Y>24 THEN Y=24 
70 IF Y<0 THEN Y=0 

80 POKE211,X:POKE214,Y:POKE209, ( ( 1024+40*Y) AMD255 ) : POKE210 , INT ( 

(1024+40*Y)/256) 

90 IF B=0 THEN PRINT "13 

99 GOTO 20 

100 Y=Y-1: RETURN 
200 Y=Y+1: RETURN 
300 X=X-1: RETURN 

400 X=X-1 : Y=Y-1 : RETURN 

500 X=X-1:Y=Y+1: RETURN 

600 X=X+1: RETURN 

700 X=X+1 : Y=Y-1 : RETURN 

800 X=X+1 : Y=Y+1 : RETURN 

1000 GET A$: IF A$<>"Q" THEN 20 

2) 10 X=54272 
20 A=5 

30 D=5 

40 POKE X+5,A*16+D 
50 S=10 
60 R=7 

70 POKE X+6,S*16+R 
80 POKE X+24,15 
90 A=8583:B=9634 
100 A1=A:B1=B 
110 POKE X+4,33 
120 Q=Q*10 

130 FOR W=A TO B STEP Q 
140 POKE (X+1) ,INT(W/256) 
150 POKE X,W-INT(W/256) *256 
160 NEXT W 

170 IF A=A1 THEN B=Al : A=B1 : Q=-l : GOTO 120 
18 A=A1 : B=B1 : Q=l : GOTO 120 
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chapter 6 Test 

Part I Determine the exact output of each of the following programs: 

a) 10 POKE 53280, 0:REM BORDER 

20 POKE 53281,0: REM BACKGROUND 

30 FOR 1=55296 TO 56295: POKE I ,0: NEXT I: REM FOREGROUND 

b) 10 FOR 1=1 TO 25 
20 PRINT 

30 NEXT I 

40 PRINT PEEK (211) PEEK { 214) : REM PEEK(211)=X POSITION ON 
SCREEN 

50 REM PEEK (214) =Y POSITION ON SCREEN 

Part II Circle the programming error(s) within each program given. 

Explain what must be done in order to correct the error. If 
no error exists, state so. 

a) 10 POKE (646,1) :REM CHANGE FOREGROUND COLOR TO WHITE 

b) 10 FOR 1=0 TO 1000 
20 PRINT PEEK (I) 
30 NEXT I 

c) 10 A=255:POKE 123, A+1 

d) 10 PRINT PEEK 6 46: REM PRINT FOREGROUND COLOR 
Part III 

a) Write a program that will draw a solid square in foreground 
color at the middle of the screen . The size of the square is 
entered by the user and can range from 1 to 15 blocks in 
length. 

b) Utilizing foreground, border and background , create a light 
show by randomly changing the border and background color, 
and by printing a random number of different graphic 
characters ranging in ASC ( ) values from 64 to 127 in various 
positions on the screen. 

The addresses of the memory locations are given below: 

Foreground : 646 
Border : 53280 
Background : 53281 
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Chapter 6 Test Solutions 

The credit for each problem if given in brackets [ ) . 
Part I [ 8@ = 16 ] 

a) This program turns the screen to black . 

b) , 24 
Part II [ 6@ = 24 ] 

a) The arguments in POKE should not be enclosed in ( ) . 

b) No errors . 

c) An ? ILLEGAL QUANTITY ERROR will exist; only values between 
and 255 , inclusive, may be POKEd into any memory location . 

d) Parentheses are needed to enclose the arguments in PEEK . 
Part III 

a) 10 INPUT "LENGTH" ;L [ 30 ] 
20 PRINT "H"; 

30 IF L<1 OR L>15 THEN 10 

40 FOR 1=1 TO 12-INT(L/2) 

50 PRINT 

60 NEXT I 

70 FOR 1=1 TO L 

80 FOR J=l TO 20-INT(L/2) 

90 PRINT " " ; 

100 NEXT J 

110 FOR J=l TO L 

120 PRINT "a " 

130 NEXT J 

140 NEXT I 

b) 10 PRINT "H" ; [ 30 ] 
20 IF Rm { ) < . 5 THEN POKE 53280 , INT( 16*RND ( 0) ) 

30 IF RND { X . 5 THEN POKE 532 81 , INT ( 16*RND { ) ) 
40 FOR 1=5 TO INT(10*RND(0) ) 
50 X=INT(40*RND(0) ) 
60 Y=INT(25*RND(0) ) 

70 POKE 102 4+40*Y+X,INT(6 4*RND(0) ) +64 
80 POKE 55296+40*Y+X,INT(16*RND(0) ) 
90 NEXT I 

100 GET A$ : IF A$<>"Q" THEN 20 
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Lesson 7J 



01 f ; 1 ' "vK; cij to apply the functions SQS, ABB and 8GN 



f ( ' 



1 ri . J 



! t 



K i^;; y f 



The mean is 3.36 for both sets , but student 1 has clearly more 
consistent measurements. This student ' s results are said to have 
greater precision and less uncertainty. The uncertainty can be 
quantified by determining , on the average, how much each measurement 
differs from the mean . Such a difference is called a deviation, and 
the sign of the deviation is irrelevant. The deviation for a 
particular measurement is thus given by: 

I MEAN - MEASUREMENT | 

The following program demonstrates the use of ABS for determining the 
average deviation of a set of data: 



10 REM INPUT DATA, FIND rlEAH 

20 F<EM 

'50 FDR I 1 TD 5 

4 I N F--' IJ T " E: IM T IE DATA P □ I M T " ; X ( I) 
5 10 "T^ T" + X ( :[ ) 

60 ne;:xt- i 

70 M - 1 / 5 
S0 F^EM 

90 F<EM CALCUEA TE DEV I AT I (DNS , 
100 REl^i FIND AVEF(AGE DEVI AT ION 
110 REM 

J 20 FOR I =^ 1 TO 5 

130 D ( I ) == ABS (M X ( I ) ) 

140 S S + D(I) 
150 NEXT 1 
160 REM 

170 REM PR]:NT' RESUETS 
180 REM 

p p. J js,! •]- . p f. I K I J -DATA F' T S . " , " D Fi- V i: A T' I ON" 
200 FOR I ^^^^ 1 TO 5 

210 PRINT X(I), INT(D(I) * 1000 + „5) / 1000 
220 NEXT I 
23!;! PF(I!\iT 

2 4 P R 1 N r ' ' M E A iM " ; I N ( M * 1 + . 5 ) / 100 
250 S =^ S / 5 

260 PRINT "UNCERTAINITY +nR INT(S * 1000 + .5) / 1000 

270 END 



Numbers have been rounded to the nearest one-thousandth in lines 
210/240 and 260 . When this program is run, student 1 would report a 
measurement of 6 . 36±. 02 while student 2 would report 6 . 36±. 06 : 



Worksheet 7.1 



Part I Determine the output of each of the following programs: 

a) 10 FOR I = 1 TO 6 
2 READ X 

30 PRINT SQR(X) 
40 NEXT I 

50 DATA 16,9,4,1,0,-1 

b) 10 FOR I = 1 TO 3 
20 READ X 

30 PRINT SQR ( SQR (X) ) 

40 NEXT I 

50 DATA 1,16,81 

c) 10 FOR I = -2 TO 2 

20 PRINT I; TAB ( 4) ; ABS (I T 3) ; TAB( 7) ; SGN ( I f 3) 
30 NEXT I 

d) 10 FOR I = -2 TO 2 

20 PRINT SGN (I) - ABS (I) 
30 NEXT I 

Part II Write each of the following programs as concisely as 
possible: 

2 

a) Write a program to find the values of the function -X - X + 6 
where f (X) is positive and X is an integer between -10 and 
10, 

b) Find the X values where both X - 5 and -X + 10 are positive. 



7 ® 3 



Vart: I 
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-1 
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Lesson 7.2 



OBJECTIVES: a) to understand the relationship between degree and 
radian measure 

b) to gain experience with the SIN and COS functions 

c) to apply the trigonometric functions SIN, COS and 
TAN to right triangle problems 

-1 -1 

d) to learn to simulate SIN and COS using the ATN 
function , i.e., arcsine and arcosine 



ASSIGNMENT: Read pages 7 . 3 through 7.5 No review problems 

Text problems 3,7,21,23,25 Homework problems 8,10,26 



Your students may need to be shown how to apply the trigonometric 
functions to the right triangles. The following figure summarizes the 
right triangle relationships: 

h I ■-i-r 4-H. opposite side 




SIN 9 



GOS0 



hypotenuEC 

adjacent side 
hypotenuse 



o 
h 

a 
h 



TAN & " opposi^o si^Q « ° 
ad.lacont side a 

For problems on a coordinate system the same relationships hold 
except that theta (0) is often taken to be the angle between ray OP 
and the positive x-axis, as indicated in the following diagram: 








For the coordinate system shown above, the tangent relation is then 



TAN e = - 
X 



If the angle is the unknown , it may be found by taking the 
tangent ' of both sides of the above equat ion , giving 



inverse 



e = ATN - 
X 



The following program will determine theta when X and Y are k nown : 
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10 C = 180 / 3 .14159265 

20 INPUT "X" ;X 

30 INPUT "Y";Y 

40 A = C * ATN (Y / X) 

50 PRINT " THETA IS" ; A; "DEGREES" 

Consider the following example where point P lies in the first 
quadrant: 



2. 




^? 




X 



RUN 
X? 2 
Y? 2 

THETA IS 45 .0000001 DEGREES 
But notice the result when the point lies in the second quadrant: 

^ ^ RUN 

X? -2 
Y? 2 

THETA IS -45 .0000001 DEGREES 

Similar problems exist in the third and fourth quadrants. The problem 
may be modified as follows: 

10 C = 180 / 3 .14159265 

20 INPUT "X" ;X 

30 INPUT "Y" ; Y 

40 A = C * ATN (Y / X) 

50 REM 

60 IF X < THEN A = A + 180 

70 IF X > AND Y < THEN A = A + 360 

80 PRINT "THETA IS" ; A; "DEGREES" 



For the second quadrant example above , the result is now 



RUN 
X? -2 
Y? 2 

THETA IS 135 DEGREES 



Third quadrant: 



RUN 
X? -2 

Y? -2 

THETA IS 225 DEGREES 



Fourth quadrant: 



RUN 
X? 2 
Y? -2 

THETA IS 315 DEGREES 
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Worksheet 7.2 



Part I 



-.2 



Use the data given in the table to sketch the graph of 
SIN(X) . Note that you musfconvert from radians to degrees: 



X (rad) 


o J_ IN ^ A. ^ 




SIN (X) 





n 


y IT/ o 




IT/ 8 


.38 


5ir/4 




'Tr/4 


. 71 


llT/S 


-.92 


3V/8 


. 92 


3*^/2 


-1 




1 


1311/8 


-.92 


5V8 


.92 


7-074 


-.71 


3V4 


. 71 


15ir/8 


-.38 


7tr/8 


. 38 


2 















The data is rounded to the nearest hundredth, 
you connect the points with a smooth curve. 



Make sure that 
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Part II Use the graph above to help you complete the following 
exercises: 

a) Estimate the angle whose sine is .5 (i.e., determine the 
inverse sine of .5). 



b) A right triangle contains an angle of 15 degrees and has a 

hypotenuse of length 10. What is the length of the opposite 
side? The adjacent side? 

7.7 



Worksheet 7.2 Solutions 

Part I 




To plot points on the graph, the student must convert from radians 
to degrees; each X value is iriultiplied by 360/2'rrV or IBO/yr. As an 
example , take the X value : 

PI 180 

• X == 45 

4 PI 

Many students will quickly realize that i^/8 rad is the difference 
between successive X values , so all of the points are multiples of 
22 .5 degrees . 

Part II 

a) 30 degrees,. 

o a 

b) SIN e = - and COS = - 

h h 

So, o = h SIN e = (10) (SIN 15) and a = h COS = (10) (COS 15) 

SIN 15 can be read from the graph as approximately .25 or 
.26, so the length of the oppos ite s ide is 2.6. The cosine 
of 15 degrees is approximately .96, so the length of the 
adjacent side is about 9.6. 
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Lessoo 7.3 



OBJECTIVES: a) to gain experience with the LOG and EXP functions 

b) to distinguish between a natural log and a base 10 
log 

ASSIGNMENTS Read pages 7.5 and 7.6 

Text problems .9,13 Homework problems 14,18^24 

An expression is given in the text for finding coniinon logarithms. 
The common logarithm of a positive number N is the exponent P to which 
10 roust be raised to produce the number K. So 



P 

10 = N 



and 



LOG N = P 
10 

The relationship above can be generalized to include any base 



P 

B = K 



and 



LOG N = P 
E 

P 

For example, consider the problem 2 = 64 . The solution is found from 
the following programs. 

10 INPUT " NUMBER" ,-N 

20 INPUT " BASE" ; B 

30 T = LOG (N) / LOG (B) 

40 PRINT B; "RAISED TO THE POWER" ; T; "="; N 

RUN 

NUMBER? 64 
BASE? 2 

2 RAISED TO THE POWER 6 = 64 
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Worksheet 7.3 



For each case given below, use the table of data to plot points on 
the grid. The data is rounded to the nearest tenth for simplicity. 
After the points are plotted, connect them with a smooth curve. Note: 
choose the scales of the axes so that the graph of each function is as 
large as possible without extending beyond the grid. After you have 
completed the graph, answer the associated questions: 



Part I Exponential function 
X EXP(X) 



-2 

-1.5 

-1 

-.5 



.5 

1 

1.5 

2 



.1 
.2 
.4 
.6 

1 

1.6 
2.7 
4.5 
7.4 



a) At what value of 
X do you believe EXP(X) 
will become negative? 



EXP (X) 



b) As the X value 
increases, to what value 
does the slope of the 
curve seem to converge? 



Part II 

X 

.2 

.4 

.8 

1.2 

1.6 

2 

2.4 

3 



Logarithmic function 
LOG(X) 



LOG(X) 



-1.6 

-.9 

-.2 

.2 

.5 

.7 

.9 

1.1 



a) What do you believe 
will happen when the 
computer tries to perform 
LOG(-l) ? 

b) Estimate the value of X 
which makes LOG(X) = 1. 



NT 
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WofH-iierl 7.3 Solutions 
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Lesson 7.4 



OBJECTIVES: a) to learn to define functions using DEF 

b) to recognize the advantages of using the DEF 

statement 



ASSIGNMENT: Read pages 7.6 and 7 . 7 Do review problem 3 

Text problems 11,17 Homework problems 12,20,22 



User-defined functions are not very powerful because only one 
argument is allowed per function. Nevertheless , they are convenient, 
especially when a function will be used a number of times within a 
program. 

Students tend to be confused by the use of a variable name to name 
the function and the use of a 'dummy' variable for the expression. 
For example : 

DEF FNJ(Z) =Zt3+ZT2+Z 

J is the function ' s name and any later reference to the function will 
be made by the name J. The Z variable is a 'dummy'; it could be any 
variable. What especially confuses the students is that later on when 
we evaluate the function, we do not usually use the variable Z but 
instead substitute whatever variable we want into the function named 
J. The following program helps clarify this by evaluating two 
functions named J and M: 



10 PRINT "X", "FN J(X) ","FN M(X) " 
20 DEF FN J (Z) =Zf3+ZT2+Z 

30 DEF FN M(S) = 5 * S + 6 
40 FOR X = 1 TO 5 
50 PRINT X, FN J (X) , FN M(X) 
60 NEXT X 



RUN 



X FN J(X) FN M(X) 

13 11 

2 14 16 

3 39 21 

4 84 26 

5 155 31 



Notice that the variables Z and S in lines 10 and 20 are 'dummies'; 

any variable name could be used. When the functions are evaluated at 

1 ine 40, X is substituted for the Z in the function named J, and the X 

is substituted for S in the function named M. 



7.13 



7.14 



Worksheet 7.4 



Part I Predict, the output of each of the following programs: 

a) 10 DEF FN Q(I) = SQR (I) +1 
20 FOR I = 1 TO 3 

30 READ J 

40 PRINT FN Q{J) 

50 NEXT I 

60 DATA 9,16,25 

b) 10 DEF FN G(X) = (2 + SGN ( -X) ) / X 
20 FOR X = -3 TO 3 STEP 2 

30 PRINT FN G(X) 

40 NEXT X 

C) 10 DEF FN H(X) = ABS (X t 2 - 2 * X - 3) 

20 PRINT FN H(0) 

30 PRINT FN H{4) " FN H(-2) 

d) 10 DEF FN X(X) = X ^ 3 - 1 
20 FOR I = 1 TO 3 
30 PRINT FN X(I) 
40 NEXT I 

Part II Write each of the following programs as concisely as 
possible: 

a) XYZ Manufacturing has a fixed pay rate of $4.55 for all 
employees. If a person works overtime (HOURS>40) , then he or 
she receives time and a half for those hours. Write a 
program using DEF functions which will figure out the amount 
of gross pay that an employee will receive. Use only one 
calculation (function) per employee. Also check the input 
for invalid data. HINT: you'll need to work with two 
separate functions. 

RUN 

NAME AND HOURS ,PLEASE? MIKE, -9 
NAME AND HOURS PLEASE? MIKE, 37 
MIKE 168.35 
ANOTHER Y/N? 

NAME AND HOURS PLEASE? FRED, 52 
FRED 263.9 
ANOTHER Y/N? 

b) Write a program to solve the following polynomial for the 
values from -3 to 5 in increments of .75. Have your answers 
rounded to the nearest thousandth. 

F(X) = Xt3 + 3*X - SIN{X) 
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Worksheet 7.4 Solutions 



Part I 



RUN 




RUN 


12 




3 


20 







30 






RUN 


d) 


RUN 


-1 







-3 




7 


1 




26 



.333333333 

Part II 

a) 10 DEF FN R(X) = 4.55 * X 

20 DEF FN J (Z) = (4.55 * 40) + ( (Z - 40) * (1.5 * 4.55) ) 
30 INPUT "NAME AND HOURS PLEASE" ;N$,H 
40 IF H < THEN 30 

50 IF H <= 40 THEN P = FN R(H) : GOTO 70 

60 P = FN J(H) 

70 PRINT N$,P 

80 PRINT "ANOTHER Y/N" 

90 GET A$: IF A$ = "" THEN 90 

100 IF A$ = "Y" THEN 30 

110 END 

b) 10 REM TABLE OF A FUNCTION 

20 DEF FN F(X) =XT3+3*X- SIN (X) 

30 PRINT "J", "FN J (X) " : PRINT " "," " 

40 FOR J = -3 TO 5 STEP .75 

50 PRINT J, INT (FN F ( J) * 1000 + .5) / 1000 
60 NEXT J 



RUN 




J 


F(J) 


-3 


-35. 854 


-2.25 


-17.358 


-1.5 


-6. 873 


-.75 


-1.986 





5E-03 


.75 


1.995 


1.5 


6.882 


2.25 


17.367 


3 


35.863 


3.75 


64.56 


4.5 


105.607 
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Chapter 7 Supplementary Problems 



1) Write a program and compare each of the following pairs of 
expressions: 

a) SIN(30 + 90) and COS(30) 

b) TAN(30 + 90) and -1/(TAN(30)) 

c) SIN(30) and SQR(1- (COS (30) ) t2) 

2) The Law of Sines is useful when dealing with triangles which do 
not necessarily contain a r ight angle . For such triangles 

SIN(A) SIN(B) SIN(C) 



a b c 

c 

where A,B and C are angles a,b and c are lengths. Write a 
prog ram in which angle A and sides a and c are used as input to 
calculate and print angles B and C and side b. 

RUN 

ANGLE A? 20 
LENGTH A? 5 
LENGTH C? 10 
ANGLE B= 116.840069 
ANGLE C= 43.159931 
LENGTH B= 13.0448849 

3) For an angle in radians, A, the computer can evaluate SIN(A) . If 
the result is N, then 

SIN(A) = N 

For the case where the angle is unknown we must find A from 
A = ASN(N) 

where ASN (arcsine) is the inverse operation of SIN. The arcsine 
function is not available on the computer, but an alternative 
means is presented in the text . 

Use the fact that 

SIN(A) 

TAN (A) = 

COS (A) 

and the relation 

SIN(A) T2 + COS (A) T2 = 1 
to derive the expression 

ASN (A) = ATN(A/SQR(1-AT2) ) 
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4) Write a program that will calculate and compare each of the 
following pairs of expressions! 

a) LN(3/2) and LN(3) - LN(2) 

b) LN(2Tl.5) and 1.5 * LN(2) 

5) Use a looping trial and error method to find the number e which 
makes the following equation true: 

LN(e) = 1 

Have your answer accurate to within ,01, 

6) Evaluate each of the following expressions for X=1.5,2,5,5,3; 

a) LN(2.71828lTx) 

b) EXP(X) - 2.71828 T X 

7) For a population which doubles at a uniform rate (a geometrical 
progression) , it can be shown that the doubling time, D, is 

t LN(2) 
D = 

LN(P) - LN(P) 
f i 

where P is the initial population size and P is the final 

i f 
population size after t time has elapsed. 

Suppose that there were 500 organisms at the beginning of a 60 
minute time interval. If there are 4000 organisms at the end of 
this period of the time, find the doubling time. 



RUN 

THE ORGANISM'S DOUBLING 
TIME WAS 20 MINUTES 

8) Study the graph at right. The 
'area under the curve' between 
1 and X is given by LN(X) . 

The area under the curve is 
approximately the shape of 
a trapezoid. The area of a 
trapezoid can be found from 
the trapezoid rule. 

A = ,5(a + b)h 



^4 




-» t 



a 
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Use the trapezoid rule to find the 
You will have to calculate b using 
( Y=l/T) . Compare your result with 

RUN 

ENTER T1,T2? 1,2 
TRAPEZOID LN(2) 



area under the curve when X=2 . 
the equation of the curve 
LN(2) . 



.75 



.693147181 



9) To improve the approximation given in the previous problem, the 
area under the curve may be subdivided into many trapezoids. Try 
using two trapezoids instead of one: *y 



RUN 

TRAPEZOID 



LN(2) 



a) 
b) 

c) 
d) 

e) 



.708333333 .693147181 

Calculate the value of Y when T=1.5. 




Calculate the area of the two trapezoids illustrated at 
right . 

Add the areas. 

Is the result a better approximation than that of 
problem 8? 

Wri&e a program that can break the area under the curve 
into 10 trapezoids? 1000 trapezoids? 

RUN 

ENTER START POINT, END POINT? 1,2 
ENTER # OF TRAPEZOIDS? 100 
TRAPEZOID LN(2) 
.693153434 .693147181 



7.19 



Chapter 7 Supplementary Problem Solutions 



1) 10 F'l = 3. 14159265 

20 PRIIMT"TE:8T 1",,"TE8T 2":PF<INT 

30 PF<INT SIN ((30 -I- 90) >l« PI / 1 80), CDS (30 :« PI / 180) 

40 PRINT TAN ((30 + 90) * PI / 130),-l / TAN (30 * PI / 180) 

50 PRINT SIN (30 * PI / 180) , , SQR ( 1 (CDS (30 * PI / 1B0) ) t2) 



2) 10 DEF FN ASN(X) - ATN ( X / S13R ( 1 Xt2)) 

20 INPUT "ANBLE A";AA 
30 INPUT "LENGTH A"; LA 
40 INPUT "LENGTH C";LC 

50 AC = FN ASN(LC * BIN(AA * 3. 1415 / 180) / LA) * 180 / 3.1415 

60 AB 1S0 - AA -- AC 

70 LB - SIN(AB * 3.1415 / 180) * LA / SINCAA t 3.1415 / 180) 
S0 PRINT "ANGLE B^==";AE 
90 PRINT "ANGLE C^^";AC 
100 PRINT "LENGTH B-";;LB 



3) SI NT 2 (X) + C0St2 (X) = 1 

COS (X) = S0R(1 - SINt2 (X) ) 

TAN(X) = SIN(X) / COS (X) 

TAN(X) = SIN(X) / SQR(1 - SINt2 (X) ) 

X = ARCTAN (SIN (X) / S0R(1 - SINf2(X))) 

THEREFORE, IF SIN (X) = A, 

ASN(A) = ARCTAN(A / S0R(1 - At2)) 



4) 10 PRINT "TEST #1",,"TEST #2" 

20 PR I NT LOG ( 3 / 2 ) , LC 36 ( 3 ) - LG6 ( 2 ) 
30 PRINT LOG (2 Tl . 5) , 1 , 5 * LOG (2) 



5) 10 E = 2 

2 Qi E 1 =^ I N T ( L (D (3 ( E ) * 1 9) ■+■ , 5 ) / 1 

30 IF El 1.00 THEN PRINT "THE APPRDX I NAT I ON OF E 

IMT(E*100+, 5) /100s END 
40 E = E 1- .001 
50 GOTO 20 
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1 PR I NT " LN (2.71 82B fX ) " , " E XP ( X ) •-2 . 7 1 B28 tX " 
20 READ X 

30 IF X 999 THEN END 

40 PRINT LOG (2. 71828tX) , EXP ( X ) -2 . 7 1 328 tX 

50 GOTO 20 

60 DATA 1.5,2,2„5,3 

70 DATA 999 



10 PRINT "ENTER TIME, START POP., ENDING P 
20 INPUT T,P1,P2 

30 D (T * LOG (2) ) / (LOG (P2) - LOG(Pl)) 
40 PRINT 

50 PRINT "THE ORGANISING G DOUBLING" 
60 PRINT "TIME WAE3 " ; D ; " M I NOTES " 



20 INP'J'f "ENTE.F: Ti , ■'"j" ; ti , 

::o A ■= ^-N '■■n.Ti)^ b = p'm v;t2); h = '^^2. - 

■;■ ■ 

"■C^ \ = ,5 * p) * H 

5 P I r.; T' ' ' T 1^: A F ' E Z Q :r D " . „ ' ' L.. m \2': " : !•■■■ iF J M •;■ 

-■<:> p i^-'lNr ■ V . , LUb rz ' 

• i", f:!:::;:::- z:hiy .; 7- ■, ^ / r- 

22 1 N ^' EN'T FO- ■'!' : ,. 'i' 2' - "'' 1 .. "" 2 

22 '''2~ ' "'" 1 ■+■ ■■'" 2 ) '2 

40 A:! =^^^''-N ' "'""'2: 

!::■(' X 1 - ., A * ( A' A 1 C 2- .! ' ; X 2 ■■■ ■ '2 * ^ A 1 E' * ■ ' I - 

3 ' I X i T' ' ' ■■■ ■ F: A E Z IJ :n J " . ^ ' N ■ 2 > ; I ^.i ' 
X'FF i, N X „ LAD A "'"2 



1 X- ZX::.'"'" ^r-Y ' ^ = • ' 

2'-' I ^ I p; !_; ' ' r,i i" a c:;^ c r;;: j i t- ^ c- j n c:- r;, v , r ^ « _ 

r, ;r Nj p . ^ i T ■ ' [y ' i ' £ [i ; n ir r j;;: i:;:- 3 r y:;' ■ ^ ,. 

Y, . 1 LI,::: , T 2 T 1 i / 'Y 

i^Yi l-Y ;; -<-■■ u ■■ eTPiY :.j 

:,Y, :;;v::::: 5 * ■ f::" bj V T ■ .i- P K jV < V -i- ^. j ) : k fY 

~ Y 2 : 2 

fa:> 'YiEXT I 

I -! ' ' "■" A f-' 2. 2 2 ID'' , ' ' L. :y! ( 2 .' ' ' 
1 no CYY I Yi-Y ^ i n;;;. :; 
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Part I 
a) 

b) 



c) 



Part II 



a) 



b) 



c) 



d) 



Chapter 7 Test 



Determine the exact output of each of the following programs: 

d) 



10 X = -3 
20 PRINT ABS (X) 
30 PRINT SGN (X) 

10 FOR I = 1 TO 3 

20 READ X 

30 PRINT SQR (X) 

40 NEXT I 

50 DATA 1,4,121 



e) 



10 PRINT SIN (0) 

20 PRINT COS (0) 

30 PRINT SIN (3.141592655) 

10 PRINT EXP (0) 

20 PRINT LOG (1) 

30 PRINT LOG (2.71828183) 



10 DEF FN A(N) = N * 2 t N 
20 FOR I = 1 TO 4 

30 PRINT FN A(I +1) - FN A(l) 
40 NEXT I 

Circle the programming error(s) within each program given. 
Explain what must be done to correct the error. If no error 
exists, state so. 

10 DEF FN X(A) = A * 3 / (A T 2) 
20 FOR X = 1 TO 3 
30 PRINT FN X(A) 
40 NEXT X 

10 REM FIND THE SINE OF 45 DEGREES 

20 PI = 3.14159265 

30 PRINT SINE(45 * 180 / PI) 

10 REM CREATE TABLE FOR LN FUNCTION 
20 PRINT "X" ,"LN(X) " 
30 FOR X = TO 10 
40 PRINT X,LN(X) 
50 NEXT X 

10 FOR I = 1 TO 4 

20 READ X 

30 PRINT SQRT(X - 1) 

40 NEXT I 

50 DATA 0,1,5,10 
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Part III Write each of the following programs as concisely as 
possible: 

a) Wr ite a program which will find for a right triangle: 

i . The unknown angle by using the ATN function . 

ii . The hypotenuse by using the Pythagorean theorem. 
] RUN 

ENTER KNOWN SIDES, A & B? 10 ,13 
THE MISSING ANGLE = 37 .568592 
THE HYPOTENUSE = 16 .4012195 

b) Consider the following function: 

x-i 

y = (-1) 

X 

Create a user-defined function and apply it to find the sum 
of the y-values generated as X takes on the values 
1,2,3 ,.. . ,100. 
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Chapter 7 Test Solutions 

The credit for each problem is given in brackets [ ] . 
Part I [ 4@ = 20 ] 

a) RUN d) RUN 

3 

-1 1 



b) RUN 

1 e) RUN 

2 1 
11 

1 

c) RUN 

6 

22 
62 

158 

Part II [ 5@ = 20 ] 

a) Line 30 should read 
30 PRINT FN X(X) 

b) Line 30 should read 

30 PRINT SIN (45 * PI / 180) 

c) Line 30 : LN(0) is non-existent. 
Line 40 all the LNs ' should read LOG. 

d) Line 20 should be 

20 PRINT SQR(X - 1) 

also, SQR(0 - 1) is undefined. 

Part III 

a) 10 PI = 3.141592654 [ 30 ] 



10 


PI = 3.141592654 




20 


INPUT "ENTER KNOWN SIDES, A 


& B" ; A,B 


30 


Tl = ATN(A / B) 




40 


T = Tl * 180 / PI 




50 


C = SQR(A T 2 + B t 2) 




60 


PRINT "THE MISSING ANGLE 


T 


70 


PRINT "THE HYPOTENUSE =«|C 




10 


DEF FN Y(X) - {-IT (X - 


D) / X 


20 


FOR X = 1 TO 100 




30 


P = FN Y(X) 




40 


T ™ T ^ P 




50 


NEXT X 




60 


PRINT "THE TOTAL ="|T 





b) 10 DEF FN Y(X) - { - 1 T (X - 1) ) / X [ 30 ] 
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Lesson 8.1 



OBJECTIVES: 



a) to contrast the binary number system with the 
decimal number system 

b) to understand how information is stored in a 
computer 

c) to discriminate between integer, real and string 
data formats 

d) to translate characters into ASCII code and ASCII 
code into characters 



ASSIGNMENT: 



Read pages 8.1 through 8.5 Do review problems 1-2 

Text problems 3,11,15,17/19,25 Homework problems 

2,4,10,18,22 



The following lesson is included so that you can explain to your 
students how a computer stores information. You should present this 
lesson only if you believe that it will interest your students and 
make the computer less of a 'black box'. Therefore, you might 
consider photocopying the lesson and using it as a hand-out for those 
who are interested. The material covered is unnecessary for those 
interested only in learning to program. 

The computer stores information by setting 'bits' to the value 
or the value 1. Groups of eight bits are called 'bytes', and a single 
'memory location' in the computer holds one byte of information. The 
maxin;um value of any byte is attained when all eight bits are 'on': 



The decimal value is 255. One byte may hold any of the 256 possible 
values between and 255, inclusive . Therefore, a single memory 
location can represent any single ASCII character . Combinations of 
bytes are used to store an integer, a real number or a string longer 
than one character. 

Integers are stored in two adjacent bytes . The first byte is 
called the Most Significant Byte (MSB) and the second byte the Least 
Significant Byte (LSB) . For example , the number 1350 is represented 
by : 



MOST SIGNIFICANT BYTE 



LEAST SIGNIFICANT BYTE 
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Notice that the decimal value of the MSB taken alone is 5 . The value 
of the LSB taken alone is 70. The integer represented can also be 
found from 5 * 256 + 70 . 

The left-most bit determines the algebraic sign of the integer. 
If the left-most bit is a , the integer is positive, and if it is 1 , 
then the integer is negative. The largest positive integer available 
is formed when the other 15 are all set to 1; +32767 . Representation 
of negative integers is more complicated than positive , so this topic 
will be covered at the end of this lesson. 

A real number is stored in five ad j acent bytes; four of them 
contain the mantissa, while the fifth holds the exponent . The real 
number is constructed from the mantissa and exponent according to 

exponent 

mantissa x 2 



The bits of the mantissa do not correspond directly to powers of two . 
Converting a real number from binary to decimal is beyond the scope of 
this text. 



Worksheet 8.1 



Part I Determine the ASCII character which could be represented by 
each of the following bytes using the table on Page 8.3 of 
the text: 





128 


M 


12 


16 


1 


A 


2 


1 


a. 





1 




















b. 








1 














1 


c . 








1 


1 


1 


1 


1 


1 


d. 








1 


1 











1 


e. 





1 





1 


1 





1 





. II 


Determine 


the binary 


bit 


pattern of 


the 


AS( 



of the following: 

a. a space 

b. the letter 'C 

c. the number '9' 

Part III Determine the output of the following programs: 

a. 10 FOR I = 1 TO 3 

20 PRINT CHR$ (I + 82) ; 

30 NEXT I 

40 PRINT CHR$(68) 

50 END 

b. 10 N$ = "C": M$ = "COMMODORE" 
20 PRINT ASC (N$) 

30 PRINT ASC ("N$") 

40 PRINT ASC (M$) 

50 END 
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Worksheet 8.1 Solutions 



Part I a, 

b, 
c . 
d, 
e , 

Part II a, 

b, 

C c 

Part III a, 

b, 



i 
? 
1 
Z 

1 
1 1 
1110 

STUD 

67 
78 
67 





1 
1 



32 
67 
57 



Note: ASC only finds the ASCII code of one character , the 

first character in the string . Hence , ASC ("C") is equal to 
ASC ("COMMODORE"). MID$ must be used to isolate letters 
within a string for the ASC function . 
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Lesson 8.2 



OBJECTIVES: a) to apply the string manipulation function LEFT$, 
RIGHT?, MID$ and LEN 

b) to convert numeric values to string values using 
STR and to convert string values into numeric values 
using VAL 



ASSIGNMENT: Read pages 8.6 through 8.8 

Text problems 1,5,7,9,13,21,23 
Homework problems 6,8,12,14,16,20,24 



The string manipulation functions are important for writing 
programs which handle words. Using these functions, it would be 
possible to write a crude word processing program. Actual word 
processing programs are written in assembly language so that they will 
run faster and more efficiently. 



Note that is a valid function for strings. For example: 



10 A$ = "OUT" 
20 B$ = "PUT" 
30 C$ = A$ + B$ 
40 PRINT C$ 
5 END 



RUN 
OUTPUT 



This function is used in Worksheet 8.2 Problem 4. 



First, review each of the functions in the table on page 8.6 of 
the text, and then slowly review problems 8.3 and 8.4. In reviewing 
the table, be careful to note that the N2 in M$ = MID$ (A$, Nl, N2) 
specifies the length of the substring, not the position of the last 
character . 

To assist you in reviewing Programs 8.3 and 8.4 an analysis 
follows below: 



PROGRAM 8.3 

LINE 40: LEN(T$) returns an integer equal to the number of 

characters found in T$ . The FOR. , .NEXT loop is executed 
LEN(T$) times since it goes from LEN(T$) to 1 STEP -1 . 

LINE 5 0: Prints a string with the length of 1, starting at 
position X in T$ . 

LINE 60: Completes the FOR. . .NEXT loop initiated in line 40. 

LINE 7 0: Acts as a 1 ine feed to negate the serai-colon from the 
last print in the FOR... NEXT loop. 

LINE 80: VAL(T$) converts the first set of numeric characters in 
T$ into a numeric value, which is then printed. 

LINE 9 0; Prints the value of T$ and a message. 
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LINE 100 : The first argument in the print statement takes the 

rightmost half (LEN(T$)/2) characters of T$ and prints 
them. The second argument prints the left half. 

LINE 110: Prints the value of the first set of numeric characters 
found and a message. 

LINE 120 : Initiates a FOR. . .NEXT loop. The starting value is 
found by taking the VAL(T$) <see line 80> and 
reconverting that value to a string . The length 
(LEN(X$)) of that string is used as the counter 
variable. 

LINE 130 : Prints a string 1 character in length from the string 

derived from the value of T$ starting at position X. 
LINE 140 : Completes the FOR. . .NEXT loop. 

PROGRAM 8.4 



LINE 10: 

LINE 20 : 
LINE 30: 
LINE 40 : 
LINE 50 : 



LINE 60 : 

LINE 70 : 

LINE 80 : 
LINE 90: 
LINE 100: 

LINE 110: 
LINE 210: 
LINE 220: 

LINE 230: 

LINE 240 : 

LINE 250: 

LINE 260 : 

LINE 270 : 
LINE 280: 

LINE 290 : 

LINE 300: 

LINE 310: 
LINE 400: 

LINE 500 : 
LINE 510: 
LINE 610: 
LINE 620 : 



Sets up a FOR. . .NEXT loop to read a randomly assigned 
number of words from a DATA statement. 

Reads a string (W$) from DATA statement (lines 610-620) . 

Completes loop initiated in 10. 

Tells the user that the computer is ready. 

C acts as a flag. If a correct guess is made in line 

110, then C will be set to zero. If an incorrect guess 

is made, C will retain its starting value of one. 

Initiates a loop with the loop variable going as long as 

W$ and loads it into D$. 

Sets up a string of question marks as long as W$ and 

loads it into D$. 

Completes the loop started in 60 

Prints D$ to the output screen. 

Prints message to user telling the number of incorrect 
guesses. 

Prompts and accepts a guess (L$) . 

Initiates a loop from 1 to the length of W$ 

Tests to see if the guess letter (L$) is not equal to 

any of the characters in W$ . If so, we go to line 270 . 

If the text finds out our string (L$) is in W$, we set 

our mistake flag ( C) to 0. 

If this is the first time through the loop, we set L$ to 
the first character of D$ . 

If this is the last time through the loop, we set L$ 
equal to the last character of D$. 

If neither of the above conditions is correct, we set L$ 
equal to the Ith character of D$. 
Completes the loop started in 210. 

Checks to see if D$ is equal to W$ ; if so, goes to 1 ine 
400. 

Updates the mistake counter and reinitializes the 
mistake flag. 

Checks to see if we have too many mistakes; if so, goes 
to line 500. 
Returns to line 90 

If W$ equaled D$ , we win and the computer prints out the 

' winner's ' message and stops the program. 

Prints out the 'losers ' message. 

Tells the user what the word was. 

Data line used for READ in line 20 . 

Data line used for READ in line 20. 
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Worksheet 8.2 

Part I Determine the exact output of each of the following programs; 

a) 10 A$ = "PROGRAMMING" 
20 PRINT LEN (A$) 

30 PRINT LEFT$ (A$,3) 

40 PRINT MID$ (A$,3 ,2) 

50 PRINT RIGHT$ (A$ ,2) 

b) 10 A$ = "RESPECT" 
20 B$ = "COINCIDE" 
30 C$ = "STIFLE" 

40 PRINT MID$ (A$,4,2) + LEFT$ (C$,3) + RIGHT$ (B$,4) 

c) 10 Q$ = "NITROGEN" 

20 FOR I = 3 TO 7 STEP 2 
30 PRINT MID$ (Q$,I,1) ; 

40 NEXT I 

d) 10 N$ = "123" 

20 T$ = MID$ (N$ , LEN (N$) ,1) 

30 V = VAL (T$) +1 

40 S$ = STR$ (V) 

50 M$ = N$ + S$ 

60 PRINT M$ 

70 IF V < = 6 THEN N$ = M$ : GOTO 20 



e) 10 W$ = "HOTDOG" 

20 FOR X = 1 TO 5 

30 IF LEFT$ (W$ ,X) > RIGHT$ (W$,X) THEN PRINT "LEFT 

40 IF LEFT$ (W$,X) < RIGHT$ (W$ ,X) THEN PRINT "RIGHT " ; 

50 NEXT X 



Part I I Write a program that will analyze a user ' s input and tell him 

or her whether the input was numeric or alphanumeric. 



RUN 
714254 

THE INPUT WAS NUMERIC 



RUN 

71K42P054 

THE INPUT WAS ALPHANUMERIC 



Worksheet 8.2 Solutions 



a) 11 
PRO 
OG 
NG 

b) PESTICIDE 

c) TOE 

d) 1234 
12345 
123456 
1234567 

e) LEFT RIGHT LEFT RIGHT RIGHT 



Part II 10 INPUT A$ 

20 IF STR ( VAL (A$) ) = A$ THEN PRINT "THE INPUT WAS 

NUMERIC" : END 
30 PRINT "THE INPUT WAS ALPHANUMERIC" 
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Chapter 8 Supplementary Problems 

Write a program which will accept a string entered by the user a 
then print out the number of occurrences of each letter in the 
string . 

Write a program which will accept a sentence with spaces moved 
from the beginning of each word to some random position within 
each wo rd . One letter wo rds should be excluded . 

The following program searches for the substring S$ within the 
phrase C$ . Unfortunately , the following prog ram can only detect 
the first occurrence of the substring . As shown below, the 
substring "OU" is found once when , in fact,- it occurs twice . 
Modify the program so that it locates all occurrences of a 
substring : 

10 C$ = "I THINK YOUR FOOLISH FATHER IS OUTSIDE TAKING 
A BATH" 

20 INPUT "SUBSTRING TO SEARCH FOR: " ; S$ 
30 E = LEN {C$) - LEN (S$) + 1 
40 FOR I = 1 TO E 

50 IF MID (C$ ,1 , LEN (S$) ) = S$ THEN PRINT "SUBSTRING 

FOUND STARTING AT POSITION "; I: GOTO 80 
60 NEXT I 

70 PRINT "STRING NOT FOUND" 
80 END 

RUN 

SUBSTRING TO SEARCH FOR: OU 

STRING FOUND STARTING AT POSITION 10 

Wr ite a prog ram which allows the user to play a wo rd guessing 
game . Follow these specifications: 

a) Put ten ' sec ret ' wo rds of various lengths into a data 
statement . 

b) Select one word at random from the data statement. 

c) Tell the player the length of the word . 

d) Reveal a letter from a random position in the wo rd and tell 
the player which position has been revealed . 

e} Al low the player to take a guess . 

f ) If the player does not guess the word, add one point to his 
score and reveal another letter . Be careful not to reveal 
letter v/hich has already been used as a clue. 

g) Repeat steps d , e and f until the player guesses the word. 
When the word is guessed, print the player's score and ask 
he would 1 ik e to play ag a in . 



8.9 



Chapter 8 Supplementary Problem Solutions 



1) 10 DIM B!ii(S0) 

20 INPUT "ENTER A STF<ING";;A$ 

40 f-of;: 1 = 1 TO le:n(a$) 

50 T$^==MID$ (A*, I , 1 ) 

60 FOR J:=l TO I 

7 1 F J $ )• S * ( J ) T H E N C = C ■•!•■ i 

80 NEXT' J 

90 IF C=^I TF1EN S*(N) = T<?i: M^^N+l 

100 C-~-0 

110 NEXT I 

120 FOR I==l TO N 

130 FOR J^^l TO LEN(A*) 

140 IF E3$(I) MID* (A$, J , 1 ) THEN l<>=K+l 

150 NEXT J 

1 60 FR I NT- S* (I ) ? " OCCURS " ; I< n " T I MES IN " : A* 

170 F~0 

180 NEXT I 

190 END 



2 ) ( J Nl ' I N 



1 ,r c > , (S32--S1- 1 ) M ) 
1 . i ' 1 "I I , E; 1 - 1 ) r-l I D * ( S T' , £i 1 + 1 , X ) -1- M I D ( S T ^ , S 1 , 1 ) +■ R 1 6 H T ( fS T t-. , L... N Ei 1 X ) 




I OUTINES * 

2=4'( 1 

THEN 250 




1 



I. N 200 




ST* 



I i I 



OR SPACE 



(31+1) STEP -1 
$,1,1* = '■ T 



THEN R=l 



[...;): 



R=-=LN-+'l 



3) S REM ENTER "ZZZ" TO STOP 

10 THINK YOUR FOOLISH FATHER IS OUTSIDE TAKING A BATK" 

:l.5 [>=0 

20 PR I NT "ENTER ^'ZZZ^' TO STOP" 

22 INPUT "SUBSTRING TO SEARCH FQR"i;S$ 

25 IF S*=^"ZZZ" THEN 80 

30 E^LEN(C*) ■- LEN(Sli) -i- l 

40 FOR 1=:]. TO E 

50 IF NID* (C!|i,, I , LEN (SS) ) ^^:=S* THEN PRINT "SUBSTRING FOUND STARTING AT " ; I : C ^Mi; + J, 

60 NEXT I 

65 IF C>0 THEN 15 

70 PRINT "STRING NOT FOUND ": GOTO 15 

S0 END 



4) 10 DIM W(10) 
20 REST0F5E 

2 5 F" R I 1. TO 1 (?) : W ( I ) !;! |\| E X 1" I 
30 S-1 

35 X=aNT (RND (0) *10+1 ) 
40 FOR 1=1 TO X 
'=10 READ W!!; 
.:>0 NEXI I 

70 PRINT "THE LENGTH OF YOUR HORD IS";LEN(Ui*) 
f ;i 1 F S L E N ( W * ) T HEN 19 
9 !ii F-' I N "F ( R N D ( ) * L, IE N ( W 1; ) -i- 1 ) 
100 IF W(P):=::1 THEN 90 
1 10 W ( I-"' ) ■■■^■^ 1 

1 20 PR I NT " THE I....ETTER AT POS I T I ON " ; P ;; " I S " ; N I D'l ( !^J* , P , 1 ) 
130 INPUT "YOUR GUESS"; A* 

1 1 F A < > W * T H E N S ^r. s •+ :|. ; (3 G T iJ S 

1 5 P R I N T "ttt C R R ECT * * * " : R \< I N "I" "YOU R S C LJ R E IS " ; S 
160 INPUT "PLAY AGAIN (Y/N)";A1; 
170 IF A^i = "Y" THEN 20 
130 END 

1 9 R R I N 1 "**>!< YOU L E * * * " : I- R I N T ' ' Y U R SC O R E I " ; S 

2 D A T A D G 6 , C: A T' , CX] M f"' U T E F< , J U L... I iJ , 16 1... E Ei I A E; , S H Q E. , "I" E M N ]! S , B E. A C H , R A D I , F'' E N C I L 
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8.12 



Part I 



Chapter 8 Test 

Determine the exact output of each of the following programs; 



a) 


10 


AS = "EXACT OUTPUT" 




10 

X V 




20 


PRINT LEN (A$) 




20 




30 


PRINT LEFT$ (A$,8) 








40 


PRINT RIGHT$ (A$,8) 












e) 


10 


b) 


10 


AS = "BYTE SIZE" 




20 




20 


FOR I = 2 TO 6 STEP 2 




30 




30 


PRINT MID$ (AS, 1,1) 




40 




40 


NEXT I 






c) 


10 


FOR J = 70 TO 88 STEP 


9 






20 


PRINT CHR$(J),- 








30 


NEXT J 







\$ = "AX" 

PRINT ASC ( LEFT (A$,l)) + 
ASC (RIGHTS (A$,l)) 

AS=''20 DOLLARS AND 19 CENTS" 
D = VAL ( LEFTS (A$,12) ) 
C = VAL ( RIGHT$ (AS, 12)) 
PRINT (D * 100 + C) / 100 



Part II 



a) 



b) 



c) 



Circle the programming error(s) within each program given. 
Explain what must be done to correct the error. If no error 
exists, state so. 



10 


REM PRINT A$ BACKWARDS d) 


10 


REM CONVERT ASCII 


20 


INPUT A$ 




CHARACTER INTO BINARY 


30 


FOR I = LEN $ (A$) TO 1 


20 


INPUT A$:D = ASC (A$) 


40 


PRINT MID(A$,1,I) ; 


30 


FOR I = 8 TO 1 STEP -1 


50 


NEXT I 


40 


K = 2 T I 






50 


IF D / K > = 1 THEN 


10 


REM REMOVE 19 FROM A 




B(I) = 1:D = D - K 




FOUR-DIGIT YEAR 


60 


NEXT I 


20 


X=1983 


70 


REM 


30 


S$ = SQR(X) 


80 


FOR I = 1 TO 8 


40 


PRINT LEFT(S$,2) 


90 


PRINT B(I) 






100 


NEXT I 


10 


REM DETERMINE # OF VOWELS IN 


A$ 




20 


INPUT A$ 






30 


FOR I = 1 TO LEN $(A$) 






40 


FOR J = 1 TO 5 






50 


READ V? 






60 


IF MID$ (A$,I) = V$ THEN 


N = N 


+ 1 


70 


NEXT J 






80 


NEXT I 






90 


PRINT "NUMBER OF VOWELS =";N 






100 


DATA A,E,I,0,U 







Part III Write each of the following programs as concisely as 
possible: 

a) Each letter of a message has been altered by changing the 
letter to ASCII code, subtracting a number given by its 
position in the message, then reconverting the result to an 
ASCII character. For example, "HI" would be encoded as "GG" . 
1 was subtracted from the ASCII code for H because H is the 
first letter in the message. 2 was subtracted from the AGCII 
code for I because I is the second letter in the message. 

Write a program to decode the following message: 
LCBPDHI9I7H 



8.13 



V7rite a program which will produce an output similar to the 
following for a sentence entered at the keyboard. Don't 
allow sentences to be entered having more than 39 characters. 
You may use only one PRINT statement, 

RUN 

?I SEEM TO KEEP FORGETTING ONE WORD 

I SEEM TO KEEP FORGETTING ONE 

I SEEM TO KEEP FORGETTING 

I SEEM TO KEEP 

I SEEM TO 

I SEEM 

I 
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Chapter 8 Test Solutions 

The credit for each problem is given in brackets [ ] . 
Part I [ 5@ = 25 ] 



a) 



b) 



RUN 
12 

EXACT OU 
T OUTPUT 

RUN 
Y 
E 
S 



C) 
d) 
e) 



RUN 
FOX 

RUN 
153 

RUN 
20 



Part II 


[ 5@ 




20 ] 










a) 


Line 
Line 


30 
40 


should 
should 


be 
be 


30 
40 


FOR I = LEN (A$) TO 1 
PRINT MID$ (A$ ,1 ,1) 


STEP -1 


b) 


Line 
Line 


30 
40 


should 
should 


be 
be 


30 
40 


S$ = STR$(X) 

PRINT RIGHT$ (S$,2) 




c) 


Line 
Line 


30 
40 


should 
should 


be 
be 


30 
60 


FOR I = 1 TO LEN (A$) 
IF MID$ (A$,I,1) = V$ 


THEN N = 


d) 


Line 


40 


should 


be 


40 


K = 2 t (I - 1) 





Part III 
a) 



b) 



10 DIM AC(39) 

20 INPUT ST$ 

30 PRINT 

40 FOR I = 1 TO LEN (ST$) 

50 AC(I) = ASC ( MID$ (ST$,I,1)) 

60 AC(I) = AC{ I) + I 

70 PRINT CHR$ (AC( I) ) 

80 NEXT I 

90 END 



10 INPUT ST$ 

20 LN = LEN (ST$) 

30 IF LN > 39 THEN 10 

40 FOR I = LN TO 1 STEP - 1 

50 IF MID$ (ST$,I ,1) = " 

60 NEXT I 

70 END 



[ 30 ] 



[ 25 ] 



THEN PRINT LEFT? (ST$,I-1) 
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Lesson 9.1 



OBJECTIVES: a) to understand the concept of files and how to 
implement them using the cassette recorder 

b) to learn how to manipulate files using the cassette 
recorder, the commands OPEN and CLOSE, and the 
statements PRINT* and INPUTS 

c) to understand how a sequential file^ such as a 
cassette file, is set up and is used 



ASSIGNMENT: Read pages 9.1 through 9.5 Do review problems 1,2 
Text problems 2,4 Homework problems 1,3,5 



When a programmer begins to write programs that use a large amount 
of data and that use the data in separate programs, it becomes obvious 
that retyping lengthy READ... DATA lines is a poor solution. 
Understanding and implementing files will solve this problem. In 
essence, a file is a set of data that has been given a name so that it 
can be accessed by several programs. There are two major places to 
store files: cassette tapes and diskettes. The rest of this lesson 
explains cassette files; diskette files will be covered in a later 
lesson. 



In order to create a cassette file, you must have a cassette tape. 
A leaderless tape is recommended, but any tape will suffice. The 
first step in creating a file on cassette tape is to position the tape 
to an empty space on the tape. If your recorder has a tape counter, 
save the number marking the position of the file. Later, when you 
want to access the data in the file, the tape should be positioned 
just before this number. Although the computer will search the entire 
side of a cassette for a file, this generally takes a long time. By 
positioning the tape correctly, the time that the computer uses to 
search can be drastically reduced. 

After setting the tape to a blank part of tape, you are ready to 
start using files. Before any work with files can be done, it is 
necessary to OPEN the file. This command uses the following format: 



OPEN <file#>, <device#>, <inode>, "<file name> " 



9.1 



The meanings of the various device numbers and file numbers are 
explained well in the text . The mode number is , however , worthy of 
further comment. If the mode number specified is 0, the computer will 
ask the user to hit PLAY on the tape recorder . The screen will clear 
while the program is looking through the cassette . The computer will 
try to find a file on the remaining portion of the tape with the name 
contained in the OPEN command . If the computer cannot find the 
specified file after reading through the entire tape, it will stop. 
You can get the screen back by hitting the RUN STOP key. 

After a file is OPENed, it must be CLOSEd to insure that the data 
in it is stored correctly. The CLOSE statement also cuts the channel 
of communication between the file and the current program, which saves 
memory space . Remember to use the file number when closing a file , not 
the device number or the mode number . 

At this point, students may be itching to send information to and 
retrieve information from a f ile . This is accomplished using the 
statements PRINT* and INPUTS . 

The PRINTS statement is used to send information to a file . It 
acts in the same manner as a PRINT statement with the sole exception 
that the computer is instructed to print to a file as opposed to 
printing on the monitor . The standard format for printing to a file 
looks like this : 

PRINTS 1, A$; " ,";B$; " ;C 

The commas are used to separate the fields within the record and to 
allow easy retrieval by the INPUT* statement. 

The INPUT* statement is used to retrieve information from a file . 
The INPUT* used to retrieve the information put into the file by the 
above PRINT* command would look like this : 

INPUT* 1, A$ ,B$,C 



9.2 



The text gives a simple explanation of how to use cassette files. 
The material that follows gives a considerably more detailed 
explanation and should be covered only if your students will be making 
considerable use of files. You might consider photocopying this 
lesson as a hand-out for student reference. 

A sequential file stores information as a text file, which means 
that the data is stored as the ASCII codes for each individual 
character. The ASCII codes are stored in records with each record 
terminated by a RETURN character ( «-) , (ASCII code 13). In any 
record, there can be several fields, which are separated by commas 
(ASCII code 44) . For example, the data stored in the file CREATE by 
Program 9.1 on page 9.3 is stored as follows: 



G 


W 


E 


N 




W 


A 


L 


D 


E 


N 


r 


4 


• 


4 


5 


r 


3 


9 


4- 








S 


A 


N 


D 


Y 




B 


E 


C 


K 


E 


R 


M 


A 


N 


/ 


4 


• 


7 


5 




4 


2 






R 


U 


B 


E 


N 




S 


T 


E 


C 


K 


r 


5 


• 


1 







3 


6 


• 


7 


5 










R 


u 


T 


H 







B 


R 


E 


r 


4 


. 


9 


5 


r 


2 


7 


• 


5 




eof 





Each of the lines shown above containing a name, wage and hours worked 
is a single record which is terminated by a RETURN character (f-) . The 
commas separate the fields within a single record and are used by the 
Commodore so that it can recognize each item as it is read back out of 
the file. At the very end of the file the computer places an 
end-of-file (eof) marker so that when data is read, the computer will 
be able to determine where the file ends. 



Rather than placing each of the three items of data (name, hours 
worked, wage) in a single record it is possible to place each item in 
a separate record. To do this, replace line 60 of program 9.1 with 
the following: 

60 PRINT#1,N$ 
62 PRINT#1,W 
64 PRINTS 1, H 

Now each record contains only a single field. 



w 



N 



W 



D 



N 



N 



D 



B 



K 



R 



M 



N 
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4 


• 


7 


5 


<■ 










4 


2 


<- 








R 


U 


B 


E 


N 




S 


T 


E C 


K ^ 








5 


• 


1 





«- 










3 


6 


• 


7 


5 










R 


U T 


H 







B 


R 


r 








4 


• 


9 


5 


<- 








2 


7 


e 


5 


eof 





To read this new file, make the following changes in Program 9.2: 

40 INPUT#2,N$ 
42 INPUT#2,W 
44 INPUT#2,H 

Notice that again the variable W must be input from the file, as it is 
in Program 9.2, even though it will not be printed at line 50. This 
is because the computer reads across the file item by item and without 
line 42, the wage (W) would be substituted for the hours worked (H) . 

Of the two approaches to storing the name, wage and hours worked 
in a sequential file, neither is necessarily preferable, but once you 
have decided how the data is to be stored, the program reading the 
data back out of the file must be written to reflect the proper file 
structure. 
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Worksheet 9.1 



Part I 
a) 

b) 

Part II 



Circle the programming error(s) within each program given. 
Explain what must be done to correct the error. If no error 
exists, state so. 

This program should create a cassette file named PHONE and 
allow the user to enter a list of names and telephone 
numbers : 

10 OPEN 1,1, 0," PHONE" 

20 FOR X=l TO 5 

30 INPUT "NAME: " ; N$ 

40 INPUT "TELEPHONE NUMBER: " ; P$ 

50 PRINT#0,N$;",";P$ 

60 NEXT X 

70 CLOSE "PHONE" 

This program should print a table listing the names and 
telephone numbers contained in the file PHONE: 

10 OPEN 65, 1,0, "PHONE" 

20 FOR C=l TO 5 

30 PRINT "NAME" ; "NUMBER" 

40 PRINT " ";" " 

50 INPUT* 1,A$,B$ 
60 PRINT A$,B$ 

70 NEXT C 

80 CLOSE 65 



After the program that appears directly below is run 
(and the tape is rewound) , determine the exact output of each 
of the following programs: 



10 OPEN 4, 1,1, "NUMBERS" 

20 FOR N=3 TO 10 STEP 2 

30 X = 2*N + X 

40 PRINT#4,X 

50 NEXT N 

60 CLOSE 4 



10 
20 
30 
40 
50 
60 
70 



OPEN 1,1,0, "NUMBERS" 
FOR Q=3 TO 10 STEP 2 

INPUT#1,E 

L=L+E 



b) 



10 
20 
30 
40 
50 
60 



OPEN 7, 1,0, "NUMBERS" 
FOR P=2 TO 5 



INPUT#7 ,M 
NEXT P 
CLOSE 7 



PRINT M 



NEXT Q 
PRINT L 
CLOSE 1 
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Worksheet 9.1 Solutions 



Part I 



a) 



Line 10 should read 



10 OPEN 1,1,1, "PHONE" 



or 



10 OPEN 1,1, 2, "PHONE" 
Line 50 should read 

50 PRINT* 1,N$; " , " ; P$ 
Line 70 should read 

70 CLOSE 1 

b) Instead of being at line 20, the FOR. .NEXT loop should 
start at line 45 so that the heading is not printed each time 
through the loop. Also, line 50 should read 



50 INPUT#65,A$,B$ 



Part II 



a) 



100 



b) 





6 

16 
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Lesson 9.2 



OBJECTIVES: a) to learn how to update files stored on cassette 
b) to understand the STATUS variable and its uses 



ASSIGNMENT: Read pages 9.5 to 9.13 No review problems 

No text problems No homework problems 



Although editing a cassette file is generally a messy, 
time-consuming process, it can be done, and the text covers this well. 
When appending records to the end of a file, it is important to know 
the number of records that are already there. This problem can be 
solved in two different ways. 

When a record from a file is read, the computer always checks 
ahead to see whether there exists another record following it. The 
system variable STATUS allows us to determine whether the end of a 
file has been reached. The comparison (STATUS AND 64) = 64 will be 
true if the end of the file has been reached. If the above comparison 
is to be used, it must occur directly after an INPUTS which found a 
record . 



Another method of finding the end of a file is to know the number 
of records that it holds. This number can be stored in the first 
record of your file. For example, consider the following program: 

10 OPEN 1,1,1, "EXAMPLE" 

20 INPUT "HOW MANY RECORDS IN THIS FILE: ";N 

30 PRINT#1,N 

40 FOR X=l TO N 

50 PRINT "RECORD #";X 

60 INPUT "NAME: ";N$ 

70 INPUT "PHONE NUMBER: ";T$ 

80 PRINT* 1 ,N$;" ,";T$ 

90 NEXT X 

100 CLOSE 1 



This program stores names and phone numbers in a file called EXAMPLE. 
The first record consists of a number representing the number of names 
in the file. Schematically the file might look like this: 



J 





H 


N 


S 





N 


1 


5 


5 


5 




4 


3 


2 


6 










M 


I 


C 


H 


A 


E 


L 


S 


t 


5 


5 


5 




9 


6 


4 


6 








S 


c 





T 


T 


1 


5 


5 


5 




9 


3 


4 


2 


eof 
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Now, when a list of all the names and corresponding phone numbers is 
desired, the variable STATUS need not be used. The first record is 
read, and the value found there is used in a FOR., NEXT loop. The 
program below illustrates this: 

10 OPEN 1,1,0, "EXAMPLE" 
20 INPUT* 1,N 

30 PRINT "THERE ARE" ;N; "NAMES IN THE FILE." 

40 FOR X=l TO N 

50 INPUT#1,P$,T$ 

60 PRINT N$;TAB(20) ;T$ 

70 NEXT X 

80 CLOSE 1 

This method allows the programmer to know the number of items in a 
file without going through the whole file. Especially in larger 
programs, the process of reading through the whole file to find the 
length can be rather time-consuming. 

Note that the number in the first record is not the number of 
records in the file. It is rather the number of records which follow, 
since the record that contains the number is not considered because it 
does not contain any of the data the file stores. 
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Worksheet 9.2 



Part I Write each of the following programs as concisely as 

possible: 

There exists a file named "BIRDS" on a cassette tape 
which has an unknown number of records. Each record contains 
two fields. The first field is occupied by a bird's name 
(B$) . The second field is occupied by an integer which 
represents the number of sightings of that bird by local 
ornithologists (S) . The file was created with the following 
short program: 

10 OPEN 35,1,1, "BIRDS" 
20 INPUT "BIRD";B$ 

30 INPUT "NUMBER OF SIGHTINGS" ;S 

40 PRINT#35,B$;",";S 

50 INPUT "ANOTHER (Y/N)";Y$ 

60 IF Y$ = "Y" THEN 20 

70 CLOSE 35 

80 END 

a) Write a program to create a list of all of the birds and 
their number of sightings. Do not allow the program to end 
with an error. 



b) Write a program that will update the file by allowing 
local ornithologists to go through the list and enter any 
additional sightings. 

c) Write a program that will allow the ornithologist to 
enter new records when new birds are sighted. 
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Worksheet 9.2 Solutions 



Part I a) 10 OPEN 1 , 1 , 1 , "BIRDS" 
20 INPUT#1,B$,S 
30 PRINT B$;TAB(20);S 
40 IF ( STATUS AND 64) <> 64 THEN 20 
50 CLOSE 1 
60 END 



b) 10 DIM B$(15) ,S(15) 

20 OPEN 1,1,0, "BIRDS" 

30 X = X + 1 

40 INPUT#1,B$(X) ,S(X) 

50 PRINT B$(X) ;TAB(20) ;S(X) 

60 INPUT "HOW MANY ADDITIONAL SIGHTINGS" ;A 
70 IF A<0 THEN 60 
80 S(X) = S(X) + A 

90 IF (STATUS AND 64) <> 64 THEN 30 
100 CLOSE 1 

110 PRINT "REWIND TAPE TO THE BEGINNING OF THE FILE" 

120 INPUT "HIT <RETURN> WHEN READY ";D$ 

130 OPEN 1,1,1, "BIRDS" 

140 FOR N=l TO X 

150 PRINT#1 ,B$ (X) ; " ," ; S(X) 

160 NEXT N 

170 CLOSE 1 

180 END 



c) 10 DIM B$(25) ,S(25) 

20 OPEN 1,1,0, "BIRDS" 

30 X = X + 1 

40 INPUT! 1,B$ (X) ,S(X) 

50 IF (STATUS AND 64) <> 64 THEN 30 

60 CLOSE 1 

70 X = X + 1 

80 INPUT "BIRD" ;B$ (X) 

90 INPUT "SIGHTINGS: " ; S(X) 

100 IF X = 25 THEN 130 

110 INPUT "ANOTHER BIRD (Y/N)";Y$ 

120 IF ASC(Y$) = 89 THEN 70 

130 PRINT "REWIND TAPE TO THE BEGINNING OF THE FILE" 

140 INPUT "HIT <RETURN> WHEN READY" ; S$ 

150 OPEN 1,1,1, "BIRDS" 

160 FOR 1=1 TO X 

170 PRINT#1,B$(I) ;",";S(I) 

180 NEXT I 

190 CLOSE 1 

200 END 
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Lesson 9.3 

LESSON 9.3 



OBJECTIVES: 



a) 



to learn how to use diskette files 



b) to learn how to update files on diskettes 

a) to understand the concepts behind the bubble sort 
and how to use one 



Diskette files work, for the most part, in the same way as 
cassette files. There are several reasons, however, why diskettes are 
more popular than cassettes. First, the computer can create and 
access diskette files much faster than cassette files. If a cassette 
tape file exists near the end of a side of the tape, the recorder must 
look through all of the files on that side of the tape unless the 
programmer has moved the tape manually by pressing the fast-forward 
button. A disk drive is a random device, which means it does not have 
to move sequentially as a cassette recorder does; rather it can jump 
directly to the desired file. 

Also, multiple diskette files can be OPENed and used 
simultaneously, which can save time. This also makes it easier to 
update the contents of a diskette file since an entire file need not 
be read into memory, where there may not be enough space for it. 
Examine the following example: 



10 OPEN 2,8,2,"CATS,S,R" 

20 OPEN 3,8,3,"PETS,S,W" 

30 INPUT#2,A$ 

40 S = STATUS 

50 PRINT#3,A$ 

60 IF (S AND 64) <> 64 THEN 30 

70 CLOSE 2: CLOSE 3 

80 END 



This program will copy the contents of the file CATS into the file 
PETS without reading the entire file CATS into memory. Line 40 is 
necessary because the STATUS variable will change after the PRINTS 
statement in line 50. The variable S stores what was in the STATUS 
variable for the comparison in line 60. 

The third advantage of diskettes is the convenience they afford 
the programmer. Instead of spending your time rewinding tapes, 
hitting PLAY or PLAY and RECORD, you can be doing something 
worthwhile; the drive takes care of the repetitive, time-consuming 
business of finding open space in which to put a file, remembering 
where it was and trying to remember what is in it two weeks later. 



ASSIGNMENTS: Read pages 9.14 to 9.18 
Text problems 6,8,10 



No review problems 
Homework problems 7,9,11 
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Be careful not to use channels and 1 when OPENing diskette 
files. These channels are reserved for the Operating System of the 
computer. Also, as the text suggests, to reduce confusion, it is wise 
to OPEN diskette files with the same file number and channel number. 
Once OPENed, diskette files are manipulated exactly like cassette 
files. Data is transferred in the same way with the statements 
PRINT#<file number> and INPUT#<file number>. 



Although the example of the bubble sort in the text covers the 
basic concepts inherent in a bubble sort, another example will be 
presented here. Consider the following program: 

10 REM 

20 PRINT "INPUT 5 WORDS TO BE SORTED" 

30 PRINT "USING A BUBBLE SORT" 

40 PRINT 

50 FOR X=l TO 5 

60 PRINT "WORD NO. ";X; 

70 INPUT A$(X) 

80 NEXT X 

90 REM 

100 REM START BUBBLE SORT 
110 REM 

120 FOR T=l TO 4 

130 FOR U=5 TO T+1 STEP -1 

140 IF A$(U) > A$(U-1) THEN 180 

150 TEMP$ = A$(U) 

160 A$(U) = A$(U-1) 

170 A$(U-1) = TEMP$ 

180 NEXT U 

190 NEXT T 

200 REM 

210 REM PRINT OUT SORTED LIST 
220 FOR C=l TO 5 
230 PRINT A$(C) 
240 NEXT C 
250 END 

RUN 

INPUT 5 WORDS TO BE SORTED 

USING A BUBBLE SORT 

WORD NO. 1 ?JOHN 

WORD NO. 2 ?MIKE 

WORD NO. 3 ?GREG 

WORD NO. 4 ?BRUCE 

WORD NO. 5 ?CHRIS 

BRUCE 

CHRIS 

GREG 

JOHN 

MIKE 

This program accepts 5 names, sorts them alphabetically using a bubble 
sort, and then prints the sorted list. The bubble sort essentially 
looks through the list, comparing neighboring items. If the two items 
are out of alphabetical order, they are switched. By going through 
the list enough times, an alphabetical list results. 
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The actual switching of the two values happens between lines 150 
to 170. It is important that the student understand why the variable 
TEMP$ is used. This can be illustrated using boxes to depict the 
values contained by variables. For example, say that the two items 
that are out of place are JOHN and GREG: 



A$ (U-1) 



A$ (U) 





If one were to try to switch them without using a temporary "holding" 
string, he might use the lines 

160 A$(U)=A$(U-1) 
170 A$(U-1)=A$(U) 

and get rid of line 150. Emphasize that a variable can hold only one 
value at a time and that by reassigning A$(U-1) to A$(U), the name 
that was held originally by A$(U), "GREG", is lost. If we visualize 
boxes, this transaction would look something like this: 



A$ (U) 



A$ (U-1) 





Clearly, such an outcome is not desirable. The correct attack is the 
one used in the program. The name GREG is held in TEMP$ while the 
variable which originally contained GREG is changed. Then, the value 
assigned to A$(U-1) through the holding variable TEMP$. This 
looks like this: 



GREG IS 
transaction 



TEMP$ 



A$ (U) 



Greg 



Greg 



A$ (U) 




A$ (u-i: 




A$ (U-1) 




:'EMP$ 




9.13 



9.14 



Worksheet 9.3 



Part I Determine the output that should result from the following 
programs: 

a) 10 OPEN 2,8,2, "NUMBERS, S,W" 
20 OPEN 3, 8, 3, "EXAMPLE, S,W" 
30 DEF FNA(X)=3*X+1 
40 FOR 1=1 TO 6 

50 IF FNA(I)/2=INT(FNA(I)/2) THEN PRINT#2 ,FNA( I) :GOTO 70 
60 PRINT#3,FNA(I) 
70 NEXT I 

80 CLOSE 2: CLOSE 3 

90 OPEN 6,8,6," EXAMPLE , S , R" 

100 INPUT! 6, G 

110 PRINT FNA(G) 

120 IF ( STATUS AND 64) <> 64 THEN 100 
130 CLOSE 6 
140 END 



b) 10 OPEN 4,8,4,"FILE,S,W' 
20 FOR C=l TO 4 
30 READ L,M,N 
40 PRINT#4,L 
50 PRINT#4,M 
60 PRINT#4,N 
70 NEXT C 
80 CLOSE 4 
90 DATA 3,6,7,9,9,3 
100 DATA 5,7,4,6,1,2 



110 OPEN 9,8,9,"FILE,S,R" 
120 INPUT* 9, S 
130 INPUT* 9, Z 
140 PRINT S+Z 

150 IF ( STATUS AND 64) <> 64 

THEN 120 
160 CLOSE 9 
170 END 



Part II Find the errors ( if any) in the following bubble sort 
programs and suggest corrections: 



a) 10 FOR X = l TO 4 
20 READ C$(X) 
30 NEXT X 
40 FOR A=l TO 3 
50 FOR B=4 TO A+1 STEP -1 
60 IF C$(B) >C$(B-1) THEN 90 

70 C$(B)=C$(B-1) 
60 C$(B-1)=C${B) 
90 NEXT B 
100 NEXT A 

110 DATA EARTH , STARS , MOON , SUN 

120 END 



b) 10 FOR A=l TO 5 
20 READ H(A) 
30 NEXT A 
40 FOR T=l TO 4 
50 FOR U=5 TO T+1 STEP -1 
60 IF H(T) >H(U) THEN 100 

70 T=H(U) 
80 B(U) =H(U-1) 

90 H(U-l) = T 

100 NEXT U 
110 NEXT T 

120 DATA 34,23,14,67,8 
130 END 



9,15 



Worksheet 9.3 Solutions 



Part I Output should be as follows: 



a) RUN 
22 
40 

58 

READY . 



(b) RUN 
9 

16 
12 
12 
10 
3 

READY. 



Part II (a) If this program is to sort its list properly, a 



different "switching" method must be devised . The inclusion 
of a temporary holding value for A$(B) must be inserted , 
perhaps at 1 ine 65, so that the two variables in question do 
not become equal to A$ (B-1) . The following lines would 
correct the program: 



(b) There are several errors in this program. First, 1 ine 
60 should read 

60 IF H(U-l) < H(U) THEN 100 

Secondly, the outer loop variable, T, is used to sto re the 
temporary value in the switching process . This should be 
changed to another variable, Z , for example. 



65 
70 
80 



TEMP$=A$ (B) 
A$(B)=A$(B-1) 
A$(B-1) =TEMP$ 
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chapter 9 Supplementary Problems 



A cassette file named SUSPECT was created by law-enforcement 
experts using the following program: 

10 OPEN 1,1,1, "SUSPECT" 
20 FOR 1=1 TO 25 

30 INPUT "SUSPECT'S NAME " ; S$ 

40 INPUT "EYE COLOR ";E$ 

50 PRINT* 1, S$, • ",";E$ 

60 NEXT I 

70 CLOSE 1 

80 END 

Each record contains two fields. The first field is occupied 
by the suspect's name while the second contains his eye 
color. Write a program to select one suspect randomly, with 
brown eyes, to be questioned. 

a) Write a program to load your friends' names and 
birthdays into a diskette file called BIRTHDAY. Allow each 
birthday to be entered in the form 

MMDD 

For example, September 5 would be represented in the file by 
0905 

b) Write a program which allows the user to input a month 
and will then print out the names of all the people on file 
born in that month. A sample run would appear as follows; 

RUN 

MONTH (NUMERIC) ?9 
NAME DAY 



JOHN 


8 


MARY 


13 


MICHAEL 


17 


KYRA 


24 


READY. 





Note that the list is printed out in the order of the day of 
birth within the month. Use a bubble sort to sort the names 
by day of birth. 

Write a program that will sort the list of states below in 
reverse alphabetical order using a bubble sort. Print the 
sorted list using the program fragment below for data. 

900 DATA KANSAS , ARKANSAS , NEW YORK , WISCONSIN 
910 DATA NEW JERSEY , CALIFORNIA , OK LAHOMA , UTAH 
920 DATA SOUTH CAROLINA, MICHIGAN, TEXAS, OHIO 



Chapter 9 Supplementary Problem Solutions 



1) 10 OPEN 1,1,0, "SUSPECT" 

20 I = INT(1+RND(0) *25) 

30 FOR X=l TO I 

40 INPUT#1,S$,E$ 

50 NEXT X 

60 CLOSE 1 

60 IF E$<>" BROWN" THEN PRINT "PLEASE REWIND THE TAPE 

TO THE BEGINNING OF THE FILE": INPUT "HIT RETURN WHEN 
READY " ; D$ : GOTO 10 

70 PRINT "SUSPECT ";S$; " WILL UNDERGO QUESTIONING." 

80 END 



2a) 10 OPEN 2, 8, 2, "BIRTHDAY, S,W" 

20 INPUT "NAME, DATE " ;N$,B$ 

30 PRINT#2,N$| " ," ;B$ 

40 INPUT "ANOTHER Y/N ";A$ 

50 IF A$="y" THEN 20 

60 CLOSE 2 

70 END 



b) 10 OPEN 9, 8, 9, "BIRTHDAY, S,R" 
20 INPUT "MONTH (NUMERIC) ";M 
30 INPUT#9,N$,B$ 

40 IF VAL(LEFT$ (B,2) ) = M THEN GOSUB 300 

50 IF (STATUS AND 64) <> 64 THEN 30 

60 REM START BUBBLE SORT 

70 FOR T=l TO Q-1 

80 FOR U=Q TO T+1 STEP -1 

90 IF D(U) > D(U-l) THEN 120 

100 T$=N$ (U) :N$(U)=N$(U-1) :N$(U-1)=T$ 

110 Z=D(U) :D(U) =D(U-1) :D(U-1) =Z 

120 NEXT U 

130 NEXT T 

140 PRINT 

150 PRINT "NAME" ; TAB (20) ; "DAY" 

160 PRINT " ";TAB(20) ; " — -" 

170 PRINT 

180 FOR E=l TO Q 

190 PRINT N$(E) ;TAB(20) 7D(E) 

200 NEXT E 

210 CLOSE 9 

220 END 

300 Q = Q + 1 

310 N$(Q)=N$; D(Q) =VAL ( RIGHT$ ( B$ , 2 ) ) 

320 RETURN 



3) 10 DIM A$ (12) 

20 FOR X=l TO 12 
30 READ A$ (X) 

40 NEXT X 

50 FOR T==l TO 11 

60 FOR U=12 TO T+1 STEP -1 

70 IF A$(U) < A$(U-1) THEN 110 
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80 TEMP? = A$(U) 

90 A$(U) = A$(U-1) 

100 A$(U-1) = TEMP$ 

110 NEXT U 

120 NEXT T 

130 FOR F=l TO 12 

140 PRINT A$(F) 

150 NEXT F 

900 DATA KANSAS, ARKANSAS, NEW YORK , WISCONSIN 
910 DATA NEW JERSEY , CALIFORNIA, OKLAHOMA, UTAH 
920 DATA SOUTH CAROLINA, MICHIGAN, TEXAS, OHIO 
999 END 
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Chapter 9 Test 



Part I Determine the output that should result from each of the 
following programs: 



a) 10 OPEN 4,8,4,"DATA1,S,W" c) 

20 READ Y 
30 R = R + Y 

40 IF R>0 THEN PRINT* 4 ,Y: GOTO 60 

50 PRINT Y 

60 IF R<16 THEN 20 

70 DATA 3,-2,-4,-6,4,8,1,4,3,-4 

80 DATA 4,7,6,2,3,-8,5,6,7,8 

90 CLOSE 4 

100 END 

b) After program (a) has been run 

10 OPEN 3, 8,3,"DATA1,S,R'' 
20 INPUT* 3, J 
3 PRINT J 

40 IF (STATUS AND 64) <> 64 THEN 20 

50 CLOSE 3 

60 PRINT "FINISHED" 

70 END 



10 DIM N$(15) 
20 N=15 

FOR X=l TO N 
READ N$(X) 
NEXT X 

FOR T=l TO N-1 

FOR I=N TO T+1 STEP-1 
IF N$(I) <N$(I-1) 
THEN 100 

T$=N$(I) :N$(I) =N$ 
(I-l) :N$(I-1)=T$ 
NEXT I 
NEXT T 

FOR X=N TO 1 STEP -3 
PRINT N$(X-1) 

'V m V 



30 
40 
50 
60 
70 
80 

90 



100 
110 
120 
130 
140 
150 
160 
170 
180 
190 



NEXT X 
DATA CAT, DOG, APE, AXE 
DATA HAT, HIM, HER, MOM 
DATA DAD, RED, ZAP, FOG 
DATA HOT, WET, DRY 
END 



Part II Circle the programming error(s) within each program given. 

Explain what must be done to correct the error. If no error 
exists, state so. 



a) 10 OPEN 3, 1,1, "DOLLAR, S,W" c) 10 
20 FOR X=l TO 4 20 
30 READ A,B,C 30 
40 IF A*.05+B*.l+C*.25=l THEN 60 40 
50 PRINT*1,A,B,C 50 
60 NEXT C 60 
70 CLOSE 1 70 
80 DATA 2,4,2,1,0,3, 

90 DATA 3,1,2,4,2,3 80 

100 END 

90 

b) 10 OPEN 1, 8,1,"FILE2,S,W" 100 
20 N = 5 110 
30 FOR Y=l TO N 120 
40 READ X$(N) 130 
50 PRINT#1,X$(N) 140 
60 NEXT N 150 
70 CLOSE 1 160 
80 END 170 

180 



R=10 

FOR X=l TO 11 

READ N$(X) 
NEXT X 

FOR T=l TO R-1 

FOR I=R TO T+1 STEP -1 
IF N$(I) >N$(I-1) 
THEN 90 

N$(I) =N$(I-1) :N$ 
(I-1)=N$(I) 
NEXT I 
NEXT T 

FOR X=l TO 11 
PRINT N$(X) 
NEXT X 

DATA MIKE, CHRIS, GREG 
DATA JOHN, FRED, BRUCE 
DATA CAROL, JON, EILEEN 
DATA JOE, LANCE 
END 
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Part III Write the following programs as concisely as possible: 



a) A file named HORSE exists on a diskette. Each record 

contains the name of a horse and the number of records in the 
file is unknown. Write a program to print out the number of 
horses in the file. Do not allow an error message to occur. 



b) i) Write a program that will create a file called WEEKEND 

on a diskette . Allow the user , a busy executive , to enter 10 
popular, relax ing weekend activities ( such as GOLFING, FLYING 
or COMPUTING) . 

ii) Write a program which will alphabetize the list of 
activities created in prog ram ( i) . Store this list in a file 
called FUN. 

iii) Finally, write a program which allows the user to ask 
for an idea for the weekend . Have the computer randomly 
choose an activity using the file FUN and print it out. 
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Chapter 9 Test Solutions 



Part I 



[ 8@ = 24 ] 



a) 



RUN 
-4 

"6 
4 



c) 



RUN 

AXE 
DOG 
BAT 

HOT 
WET 



READY. 



b) 



RUN 



READY. 



3 
-2 

8 

1 

4 

3 
-4 

4 

7 

FINISHED 
READY . 



a) Line 10 should read 10 OPEN 3 , 1 , 1 , "DOLLAR" . This is the 
proper OPEN format for a cassette file. Line 50 should read 
50 PRINT# 3 , A; " , " ; B; " , " ; C . Line 70 should close the file 
number , 3 , in this case; it should read 70 CLOSE 3 , Finally , 
the comma at the end of the data in line 80 should be 
deleted . 

b) Line 10 attempts to OPEN a diskette file on channel 1, 
which is reserved for the Operating System of the computer. 
It would be correct to open the diskette file on any channel 
number between 2 and 14 . If you chose 2 , the line would read 

10 OPEN 2,8,2^''FILE2f S^W 

In lines 40 and 50 the subscripted variable should be the 

loop variable, Y. Also, line 60 should read 60 KEXT Xe To 
be consistent with earlier examples , lines 50 and 70 should 
use the new channel number when deal ing with the file. Line 
50 should read 50 PRINT#2 ^ X$ ( Y) and line 70 should read 70 
CLOSE 2, if we are to be consistent with line 10. Finally^ 
there is no DATA for the REM) to read, 

c) Line 10 should read 10 In line 60 the STEP -i is 
missing from the FOR, .NEXT line. The switching process in 
line 80 does not use a temporary storing value. Finally, 
since the artay of K§ has 11 members , it must be DiMensioned 
at the beginning of the program. 



Part II [ 8@ = 24 ] 
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Part III a) 10 OPEN 3,8,3,"HORSE,S,R" [ 10 ] 

20 INPUT#3,H$ 
30 N=N+1 

40 IF (STATUS AND 64) 064 THEN 20 

50 PRINT "THERE ARE ";N; " HORSES IN THE FILE." 

60 CLOSE 3 
70 END 



b) [ 10 ] 

i) 10 OPEN 7, 8, 7, "WEEKEND, S,W" 
20 FOR X=l TO 10 

30 INPUT "ACTIVITY ===>> " ; A$ 
40 PRINT#7,A$ 

50 NEXT X 
6 CLOSE 7 
70 END 



ii) 10 OPEN 7, 8, 7, "WEEKEND, S,R" [ 22 ] 

20 FOR X=l TO 10 

30 INPUT#7,A$ (X) 

40 NEXT X 

50 CLOSE 7 

6 FOR B=l TO 9 

70 FOR U=10 TO B+1 STEP -1 

80 IF A$(U) > A${U-1) THEN 120 

90 TEMP$=A$(U) 

100 A$(U)=A$(U-1) 

110 A$ (U-1) =TEMP$ 

120 NEXT U 

130 NEXT B 

140 OPEN 5,8,5,"FUN,S,W" 
150 FOR 1=1 TO 10 
160 PRINT#5,A$(I) 
170 NEXT I 
180 CLOSE 5 
190 END 



iii) 10 OPEN 4,8,4,"FUN,S,R" 

20 V=INT(10*RND(0) +1) 

30 FOR X=l TO V 
40 INPUT#4,A$ 

50 NEXT X 

60 PRINT "WHY DON'T YOU 

70 CLOSE 4 

8 END 



[ 10 ] 



GO " ; A$ ; " THIS WEEKEND?" 
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Final Examination 



Part I Multiple Choice 



Determine the best response and place the corresponding 
letter in the blank. 

1) The statement: 

X = PEEK(211) 

a) Places the value 211 into memory location 211. 

b) Erases the contents of memory location 211. 

c) Assigns the value stored in memory location 211 to 
the variable X. 

d) Assigns the value of X to memory location 211. 

e) Is an illegal statement. 

2) In the statement: 

DEF FN Z(X) = 3 * X + 5 

a) If X = 4 then the variable will equal 17. 

b) If J = 5 then FN Z(J) will equal 20. 

c) Another variable may not be substituted for X when 
the function is evaluated. 

d) If T = 12 then FN Z(T) will equal 36. 

e) X is the name of the funct ion . 

3) What is the result of the following : 

10 FOR I = 1 TO 2000 
20 PRINT " " ; 

30 NEXT I 

40 PRINT 

a) no noticeable output 

b) prints blank spaces down the s ide of the screen 

c) prints 2000 blank spaces 

d) puts the user into reverse mode 

e) prints 2000 reverse mode blank spaces 

4) What is the decimal equivalent of the binary number 101? 
a) 2 b) 3 c) 4 d) 5 e) 6 

5) Determine the output of the following program: 

10 P$ = "AB" 

20 PRINT CHR$ (ASC(P$) ) 

a) AB c) 65 e) ERROR MESSAGE 

b) A d) 66 
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6) 



How many bits constitute a byte? 



a) 65537 c) 8 e) 2 

b) 16 d) 256 

7 ) What is the largest positive value an integer variable 
may have in the computer? 

a) 32767 c) 65537 e) NO LIMIT 

b) 256 d) 3E39 

8) Determine the output of the following program: 
10 N$ = "llELEVEN" 

20 PRINT MID$ (N$,VAL{N$)-6,LEN(N$) -5) 

a) EVE c) ELEVEN e) EVEN 

b) ELE d) 11 

9) An unwanted file named "WORK" is removed from a diskette 
by using the command ( s) : 

a) ERASE " WORK " , 8 d) OPEN 15,8,15 

b) OPEN 15, 8,15 PRINT#15,"S:W0RK" 
PRINT#15,"N:W0RK , DELETE" CLOSE 15 

CLOSE 15 e) LOAD "WORK" , 8 

c) DELETE "WORK" , 8 NEW 

10 ) Consider the following program: 

10 OPEN 2,8,2,"WORK,S,W" 

20 FOR I = 1 TO 5 

30 INPUT N$,A 

40 PRINT* 2, N$; " ,";A 

50 NEXT I 

80 CLOSE 2 

How many records are put into the file "FILEIO" when the 

program is run? 

a) c) 10 e) 20 

b) 5 d) 13 

11) Which of the following statements are true: 

a) The computer can access a cassette file faster than 

a diskette file, 

b) Both cassettes and diskettes have built in 
directories which can be listed. 

c) The computer can access a diskette file faster than 
E cassette file, 

d) Neither cassettes nor diskettes will store 
programs . 

e) Once a file is accessed on either the cassette or 
diskette ; it is autoinat ically erased. 
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12) Which of the following functions does NOT have a string 
as its argument? 

a) LEFT$ c) RIGHT? e) STR$ 

b) LEN d) MID$ 

13) Which of the following bytes represents the decimal 
number 45? 



a) 











1 


1 


1 





1 


b) 








1 








1 


1 


1 


c) 








1 





1 





1 


1 


d) 











1 


1 


1 





1 


e) 








1 





1 


1 





1 



14) Which of the following is a legal operation on the 
computer? 

a) SQR(-4) c) SIN(O) e) LOG(-l) 

b) TAN('^2) d) EXP(IOO) 

15) To convert an angle from degrees to radians 

a) Multiply by 180 then divide by PI 

b) Multiply by then product of 180 and PI 

c) Divide by the product of 180 and PI 

d) Multiply by PI then divide by 180 

e) Multiply by PI then divide by 360 
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Part II Exact output 



Determine the output of each of the following programs: 

1) 10 DEF FN T(X) = X * 2 + 5 
20 y = SGN(8/4-4) 

30 X = ABS(-2T3) 

40 Z = FN T(X) - FN T(y) 

50 PRINT y :PRINT X: PRINT Z 

2) 10 A$ = "MISSISSIPPI" 
20 L = LEN(A$) 

30 FOR I = 1 TO L - 1 

40 IF MID$(A$,I,1) = MID$(A$, 1+1,1) THEN 

PRINT MID$(A$,I,2) 

50 NEXT I 

3) 10 REM NOTE THAT ASC("A") =65 
20 PRINT ASC("B") 

30 FOR I = 1 TO 6 
40 READ X 
50 PRINT CHR$ (X) ; 

60 NEXT I 

70 DATA 83,85,77,77,69,82 
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Part III Locate the errors 



Circle the programming error(s) within each program given. 
Explain what must be done to correct the error. If no error 
exists, state so. 



1) 10 REM PRINT TEN WORDS BACKWARDS 

20 FOR Y = 1 TO 10 
30 INPUT W$ 
40 FOR X = LEN$(W$) TO 1 
50 PRINT MID(W$,1,X) , 

50 NEXT Y 

70 NEXT X 

80 END 



2) 10 OPEN 0,8, 3, "COLORS, S,W" 

20 INPUT#1,"WHAT COLOR" ;C$ 

30 PRINT#0,C$ 

40 INPUT "ANOTHER Y/N";N$ 

50 IF N$ = Y THEN 20 

60 CLOSE 3 

70 END 
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Part IV Programs 



Write each of the following programs as conci£;ely as 
possible. Good programming style is important, 

1) A company has twenty-five employees with employee 

numbers ranging from 1 to 25. Write a program which 
will create a random access file named EMPLOYEE and 
allow the user to enter the list of employees. File 
record numbers will correspond to employee numbers. A 
schematic follows; 



The N column corresponds to "CREDIT POINTS" given by the 
boss . When the file is created , this column contains 
zeroes. The employee with the longest name is 
"Blithensputh" . Note that no one has ever gotten more 
than three or four credit points (i.e., single digits) . 



2) Write a program that will access the file EMPLOYEE 

created in problem 1 and allow the boss to pick one of 
the following three options: 

a) Store the name of a new employee in the file and 
set N to 0. 

b) Input the name of an employee who has done an 
especially good job and add one point to his or her 
credit , N. 

c) List all employees with credit equal to or above a 
number entered by the boss. 

Each of the three options should be programmed in its 
own separate subroutines . Programming style is 
important . 



NAME$ 



N 



BLECKMAN 

SANDERSORT 

BLITHENSPUTH 
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Final ExaminationSolutions 



The credit for each problem is given in brackets [ ] . 
Part I [ 2@ = 30 ] 

1) D 6) C 11) C 

2) B 7) A 12) E 

3) A 8) A 13) E 

4) D 9) D 14) C 

5) B 10) B 15) D 

Part II [ 5@ = 15 ] 

1) -1 2) SS 3) 66 

8 SS SUMMER 

18 PP 

Part III [ 5@ = 15 ] 

1) - Line 40 should be FOR X = LEN(W$) TO 1 STEP -1 

- Line 50 should be PRINT MID$(W$,X,1) 

- Line 60 should be NEXT X 

- Line 70 should be NEXT Y 

2) - Line 10 should be OPEN 2 , 8 , 3 , "COLORS, S ,W" 

- Line 20 should be INPUT "WHAT COLOR" ;C$ 

- Line 30 should be PRINT#2C$ 

- Line 50 should be IF X$ = "Y" THEN 20 

- Line 60 should be CLOSE 2 
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Part IV 



1) 10 OPEN 2, 8, 2," EMPLOYEE, S,W" [ 20 ] 

20 N=0 

30 INPUT "ENTER EMPLOYEE NUM , NAME" ; E , N$ 

40 PRINT#2,E;",";N$;",";N 

50 INPUT "ANOTHER Y/N";X$ 

60 IF X$="Y" THEN 40 

70 CL0SE2 

80 END 



2) 10 PRINT "[1] NEW EMPLOYEE" [ 30 ] 

20 PRINT "[2] ADD CREDIT" 
30 PRINT "[3] LIST OUT" 
40 INPUT X 

50 ON X GOSUB 1000,200 0,3000 
60 END 

1000 REM * ADD NEW EMPLOYEE * 

1010 OPEN 2, 8, 2, "EMPLOYEE, S, A" 

102 INPUT "ENTER EMPLOYEE NUM , NAME" ; E , N$ 

1030 PRINT#2,E;" ,";N$;",";0 

1040 CLOSE 2 

1050 RETURN 

2000 REM * ADD CREDIT * 

2010 OPEN 2,8,2,"EMPLOYEE,S,R":OPEN 3 , 8 , 3 , "TEMP ,S ,W" 

2020 INPUT "ENTER NAME";T$ 

2030 INPUT#2 ,E,N$,N 

2040 IF T$=N$ THEN N=N+1 

2050 PRINT* 3 , E; " , " ; N$ ; " , " ; N 

2060 N=0 

2070 CLOSE 2: CLOSE 3 

2080 OPEN 15,8,15 

2090 PRINT* 15, "S: EMPLOYEE" 

2100 PRINT#15,"R: EMPLOYEE=TEMP" 

2110 CLOSE 15: RETURN 

3000 REM * LIST OUT * 

3010 OPEN 2, 8,2, "EMPLOYEE, S,R" 

3020 INPUT "ENTER # OF POINTS" ;P 

3030 INPUT#2,E,N$,N 

3040 IF (STATUS AND 64) = 64 THEN CLOSE 2: RETURN 
3050 IF N<P THEN 330 
3060 PRINT E,N$,N 
3070 GOTO 3030 
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